Если на вашем ПК сохранен профиль WLAN, этот подход прост.
Sub connectTo(ByVal name As String)
Dim p = "netsh.exe"
Dim sInfo As New ProcessStartInfo(p, "wlan connect " & name)
sInfo.CreateNoWindow = True
sInfo.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(sInfo)
End Sub
'use the sub to connect to your AP. connectTo("myAP")
В противном случае проще использовать ManagedWifi или SimpleWifi библиотеки dll.Вот мой код , где я использовал SimpleWifi.dll для подключения к сети с помощью ключа доступа.