Private Sub Form_Load()
Label1.Caption = "http://www.altavista.com"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sätter textfärgen i etiketten till svart.
Label1.ForeColor = QBColor(0)
'Standardmuspekakaren...
Screen.MousePointer = vbDefault
End Sub



Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sätter textfärgen i etiketten till röd när muspekaren rör sig över etiketten.
Label1.ForeColor = QBColor(4)
'Muspekaren förvandlas till en "Crooshair"...
Screen.MousePointer = 5
End Sub
Private Sub Label1_Click()
Set ie = New InternetExplorer
ie.Visible = True
'En exempeladress...
URL = "http://www.altavista.com"
ie.Navigate URL
End Sub