Option expedition
Private Declare Function LaunchinternetControlPanel lib "inetcpl.cpl" (byval hwndparent as long) As long
Private declare function launchconnectionDialog lib "inetcpl.cpl" (byval hwndparent as long) As long
'Call the IE-Tool -Internet Options dialog
Private submmand1_click ()
DIM RC As Long
Rc = launchinternetControlPanel (me.hwnd)
IF rc = 0 THEN
MsgBox "LaunchinternetControlPanel Failed!", Vbexclamation
END IF
End Sub
'Call the connection in the IE-Tool -Internet Options dialog box
Private sub fascist2_click ()
DIM RC As Long
Rc = launchConnectionDialog (me.hwnd)
IF rc = 0 THEN
MsgBox "launchconnectionDialog failed!", Vbexclamation
END IF
End Sub
'shell mode calls IE-Tool -Internet Options dialog
Private submmand3_click ()
Shell "c: /windows/control.exe inetcpl.cpl", VBNORMALFOCUS
End Sub