Membuat Hyperlink Pada VB 6.0

'Deskripsi: Membuat hyperlink ke suatu alamat e-mail dan situs (web) dengan
'           bantuan label menggunakan fungsi API. Jika label yang bertalian
'           diklik, maka akan mengeksekusi program default di suatu komputer
'           untuk mengirim e-mail atau membuka suatu alamat situs.
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Jumat, 10 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 2 Label.
'           2. Beri nama label masing-masing lblEmail dan lblSitus
'           3. Copy-kan coding berikut ke dalam editor form yang bertalian.
'----------------------------------------------------------------------------

'Jika Anda ingin agar ketika mouse berada di atas kedua label tersebut
'berubah menjadi kursor bergambar tangan, set property MouseIcon saat
'design-time dengan file icon bergambar tangan yang Anda miliki, dan
'property MousePointer menjadi "99 - Custom".

'Deklarasikan fungsi API untuk mengeksekusi suatu Hyperlink
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

Const SW_SHOWNORMAL = 1  'Konstanta untuk menampilkan jendela normal

Private Sub Form_Load()  'Tampilkan nama untuk setiap label
lblEmail.Caption = "admin@masinosinaga.com"  'Email
lblEmail.Font.Underline = True
lblEmail.ForeColor = vbBlue  'Warna link mula-mula biru
lblSitus.Caption = "http://www.masinosinaga.com" 'Situs
lblSitus.Font.Underline = True
lblSitus.ForeColor = vbBlue  'Warna link mula-mula biru
End Sub

Private Sub lblEmail_Click()
Dim email As Long
'Tampilkan program default untuk mengirim e-mail ke alamat lblEmail
email = ShellExecute(0, vbNullString, _
      "mailto:" & lblEmail, "", "", vbNormalFocus)
lblEmail.ForeColor = &H8000& 'Setelah diklik, berubah warna
End Sub

Private Sub lblSitus_Click()
Dim situs As Long
'Tampilkan program default untuk membuka situs ke alamat lblSitus
situs = ShellExecute(0, vbNullString, _
      lblSitus, "", "", vbNormalFocus)
lblSitus.ForeColor = &H8000& 'Setelah diklik, berubah warna
End Sub