Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub Form_Load()
    Text1 = "www.vbarchiv.net"
    Text1.ForeColor = vbBlue
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    Text1.ForeColor = vbBlue
End Sub
 
Private Sub Text1_Click()
    Dim ret
    ret = ShellExecute(hwnd, "open", Text1, &H0, &H0, SW_SHOWNORMAL)
End Sub
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    Text1.ForeColor = vbRed 'or whatever
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1