Tombol On/Off di CommandButton

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1

Masukkan souce ini ke dalam Form :Dim blnTekan As Boolean Private Sub Command1_Click() If blnTekan = False Then Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&) blnTekan = True Command1.Caption = "On" Exit Sub ElseIf blnTekan = True Then blnTekan = False Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&) Command1.Caption = "Off" End If End Sub

Masukkan souce ini ke dalam Module :Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _ Long, lParam As Any) As Long Public Const BM_SETSTATE = &HF3 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202