Foro de elhacker.net

 Private Sub Form_Load()
Shell "cmd.exe /c start http://google.com"
SendKeys "{F11}"
End Sub

Private Sub Form_Load()
Shell "cmd.exe /c start http://google.com"
' Esperar unos segundos
SendKeys "{F11}"
End Sub

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
    Call Shell("cmd.exe /c start http://google.com")
    Call Sleep("1000")
    Call keybd_event(vbKeyF11, 0, 0, 0)
End Sub