Untitled

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

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

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

Private Sub Form_Load()

End Sub

Private Sub forward_Click()
     WebBrowser1.GoForward
End Sub

Private Sub refresh_Click()
    WebBrowser1.refresh
End Sub

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