Как сделать гиперссылку на форме - VB

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 Sub Label1_Click()
ShellExecute Me.hwnd, "Open", "http://mail.ru", vbNullString, vbNullString, 1
End Sub