Error SendKeys Permission Denied

Dalam pembuatan sebuah aplikasi tentunya tidak lepas dengan Error baik error dalam syntac sistem ataupun dalam database, untuk pembahasan kali ini yaitu Error SendKeys Permission Denied yang terjadi dalam Visual Basic Classic pada Windows 7 ke atas. Langsung saja ke pokok pembahasan buka Microsoft Visual Basic 6.0 - StandartEXE, buat lah sebuah form dan letakkan satu komponen TextBox pada form tersebut. 

Buat juga sebuah modul, untuk name nya bisa apasaja tergantung dari selera agan sendiri, kemudian pastekan coding berikut 

Private Const KEYEVENTF_KEYUP = &H2
Private Const INPUT_KEYBOARD = 1
Private Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type

Private Type GENERALINPUT
dwType As Long
xi(0 To 23) As Byte
End Type 

Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long 

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Setalah itu double klik pada komponen TextBox yang terdapat pada form dan pilih prosedur Change copy code berikut dan pastekan pada prosedur textbox tadi 

Text1.Text = Format(Text1.Text, "#,##0"): SendKeysA vbKeyEnd, True

Simpan dan Run / F5 dan inputkan karakter type numeric secara otomatis type data numeric tersebut akan tertata rapi dengan format numeric tanpa ada pesan error dan sebagainya, cukup simple bukan dan semoga bermanfaat