Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Dim adapter As NetworkInterafce
Dim msg As String = ""
For Each adapter In adapters
  Dim adapterProperties As IpInterfaceProperties = adapter.GetIPProperties()
  Dim addresses As GatewayIPAddressInformationCollection = _
    adapterProperties.GatewayAddresses
  If addresses.Count > 0 Then
    Dim addresses As GatewayIpAddressInformation
    For Each address In addresses
      msg += "Gateway:" &address.ToString() & vbCrLf
      MsgBox(msg,MsgBoxStyle.IOnformation, " ")
    Next address
  End If
Next Adapter