Private Declare Function ShellExecute Lib "Shell32.dll"  Alias "ShellExecuteA"( _
  ByVal hWnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Integer) As Integer
 
 
    Private Sub Form1_Load(ByVal eventsender As System.Object, ByVal eventArgs _
      As System.EventArgs) Handles MyBase.Load
 
        ShellExecute(Me.Handle.ToInt32, "Open", "http://link.htm", _
          vbNullString, vbNullString, 1)
for i =0 to 5
     sendkeys ({Tab})
next i
 
    End Sub