Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Este ejemplo lo encontre en una web no lo he probado pero segun la explicacion que le acompañaba hacia lo que pedis espero te sirva.
Private Sub Form_Load() Dim AbrirConexion As Long AbrirConexion = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConexiónInternet", 1) SendKeys "{ENTER}" End Sub