Private Sub btnRixRoad_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnRixRoad.Click
Dim RixRoad As New ProcessStartInfo()
RixRoad.FileName = "Netsh"
RixRoad.Arguments = "int ip set add name=""Local Area Connection""
source=static addr=10.109.220.254 mask=255.255.0.0 gateway=10.109.200.1
gwmetric=1"
Process.Start(RixRoad)
End Sub
This worked for me - althought im sure there is otherways of doing it.