Someone

Private Sub Form_Load()
    wb.Navigate "www.nettby.no"
    DoEvents
    
    While wb.Busy = True
        DoEvents
    Wend

    'WebBrowser1.Document.All("email").Value = "test"
    'WebBrowser1.Document.All("password").Value = "test"
    'WebBrowser1.Document.Forms("login").submit
End Sub

'''''''''''''''''
'Browser buttons'
'''''''''''''''''
Private Sub back_Click()
    wb.GoBack
End Sub

Private Sub Form_Load()

End Sub

Private Sub forward_Click()
     wb.GoForward
End Sub

Private Sub refresh_Click()
    wb.refresh
End Sub

''''''''''''''
'Meny buttons'
''''''''''''''
Private Sub profile_Click()
    'WebBrowser1.Navigate
End Sub