Control Label

Label biasanya cuma digunakan sebagai pengikut control lain..
Padahal label juga bisa digunakan sebagai contol layaknya button atau image..

Cobalah beberapa trik berikut :

Gunakan code ini dan klik 1 kali

Private Sub Label1_Click()

MsgBox "Hai..Salam Kenal..", vbCritical, "Gridxl.com"

End Sub

Gunakan code ini lalu Doble Klik

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox "Hai..Salam Kenal..", vbCritical, "Gridxl.com"

End Sub

Gunakan code ini dan arahkan kursor pada label

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift

As Integer, ByVal X As Single, ByVal Y As Single)

Me.Label1.Font.Size = 20

End Sub