Из Лэйбла делаю InterNet-Link, Но...

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_SHOW = 1
 
Public Sub Navigate(ByVal NavTo As String)
Dim hBrowse As Long
hBrowse = ShellExecute(0&, 'open', NavTo, '', '', SW_SHOW)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF0000
Label1.FontUnderline = False
Label1.FontBold = False
End Sub
 
Private Sub Label1_Click()
Navigate ('mailto:ali_baba@mail.ru?' & _
'subject=Шалом' & _
'&body=Здравствуйте!')
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
Label1.FontUnderline = True
Label1.FontBold = True
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.MousePointer = 99
Label4.MouseIcon = LoadResPicture(201, vbResCursor)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF0000
Label1.FontUnderline = False
Label1.FontBold = False
End Sub