Membuat CommandButton Seperti Stop Kontak Lampu

Pengunjung yang menginginkan bagaimana jika sebuah tombol dapat bertindak seperti tombol stop-kontak lampu. Jika belum ditekan, maka tombol akan kelihatan masuk ke dalam, dan ketika ditekan sekali lagi, tombolnya akan keluar (normal kembali). Demikian seterusnya bergantian. Mau tahu code-nya seperti apa? Simak selengkapnya berikut ini.
Code :

'Deskripsi: Membuat sebuah tombol kelihatan ditekan ke dalam saat ditekan
' sama seperti jika Anda menekan tombol stop-kontak lampu di rumah;
' maka tombol akan kelihatan masuk ke dalam, kemudian ketika Anda
' menekan sekali lagi, maka tombol akan kembali normal kembali...
' demikian seterusnya secara bergantian untuk penekanan berikutnya.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Jumat, 3 Oktober 2008
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke dalam editor form & module ybt.
'-------------------------------------------------------------------------------

'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.

'--- Coding ini di 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
'--- Akhir coding di Module...

'--- Coding berikut di Form ---
Dim blnTekan As Boolean

Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub
'--- Akhir coding di Form...

Sumber : http://www.masinosinaga.com by.iby