Persiapan: 1 Form, 1 Module, dan 1 Commandbutton.
Code::
codingx/ isi pda module
--------------------------------
Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
'-------------------------------
'--- Coding ini di Form Anda...
Private Sub Command1_Click() 'Ketika Anda mengklik tombol Command1, tampilan
ShowCursor& 0 'kursor mouse di layar Anda akan
End Sub
Private Sub Form_Unload(Cancel As Integer) 'Ketika Anda keluar dari program
ShowCursor& 1 'dengan menekan F4
End Sub
0 comments:
Posting Komentar