Connect To The Internet

'Insert the following code to your form:

Private Sub Form_Load()
'Replace connection_name with the internet connection you want to launch
'To see which internet connection you got on your computer, double click
'on 'My Computer' icon on your desktop, then double click on 'Dial-Up NetWorking'
'icon. in the new window that will be opened you will see the list of your internet connections.

Result = SHELL("rundll32.exe rnaui.DLL,RnaDial " & "connection_name", 1)
End Sub

Go Back