Disable ALT+TAB

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

Masukkan souce ini ke dalam Form :Option Explicit Private Sub Form_Load() Dim ret As Long ret = SystemParametersInfo(97, True, ret, 0) KBDhwnd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CatchKeys, App.hInstance, 0) End Sub Private Sub Form_Unload(Cancel As Integer) Dim ret As Long ret = SystemParametersInfo(0, False, ret, 0) If KBDhwnd <> 0 Then UnhookWindowsHookEx KBDhwnd End Sub

Mendapatkan Posisi Mouse Di klik Kanan \ Kiri

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	Interval	KETERANGAN
1.	Form	1	Form1
2.	Timer	1		500

Masukkan souce ini ke dalam Form :Option Explicit Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim result As Integer Dim tmp As Integer Const Cap1 = "Capture Mouse Events" Private Sub Form_Load() Form1.Caption = Cap1 End Sub Private Sub Timer1_Timer() Dim x As Long, sclass As String, y As Integer, sclass1 As String sclass = Space$(1024) x = GetForegroundWindow If GetAsyncKeyState(1) <> 0 Then Label1.Caption = "Left Mouse Click" End If If GetAsyncKeyState(2) <> 0 Then Label1.Caption = "Right Mouse Click" End If End Sub