Link disini berfungsi untuk membuka Alamat web pada suatu situs….tips ini saya dapert dari Mbah Google lo….yaaaps langsung saja…………………

Langkah pertama Tambahkan satu Label pada Form……

dan langkah kedua membuat fungsi ShellExecute…ketikkan atau kopy code dibawah ini…

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long
Dim X As String

Langkah selanjutnya buatlah Object general untuk memnuaka link….ketikkan atau kopy kode dibawah ini….

Sub OpenLink()
Dim link As Long
link = ShellExecute(0, vbNullString, X, “”, “”, vbNormalFocus)
End Sub

Selanjutnya klik 2x pada label1 dan ketikkan kode berikut :

Private Sub Label1_Click()
X = “https://tarjianto.wordpress.com”       Alamat webnya terserah Anda…
Call OpenLink
End Sub

Langkah selanjutnya masih berada pada komponen label1 cari procedure MouseDown lalu ketikkan kodenya di bawah ini..

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue

End Sub

Setelah Selesai Coba jalankan Programnya…….SELAMAT MENCOBA SEMOGA BERHASIL……..