Public Sub GetGateways()
    For Each nic As NetworkInterface In _
      NetworkInterface.GetAllNetworkInterfaces()
        For Each gw As GatewayIPAddressInformation In _
                nic.GetIPProperties().GatewayAddresses
            ListBox1.Items.Add(nic.Name & " Gateway=" & gw.Address.ToString())
        Next
    Next
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist