VB 6.0: Menonaktifkan Menu Start Windows

Tulisan sebelumnya membahas tentang menyembunyikan menu start klo ga salah ya. he…he… klo ga ya bener…

Pertama buat tampilannya seperti ini :

Lalu copas aja Coding di bawah ini :

Private Const VK_ESCAPE = &H1B

Private Const KEYEVENTF_KEYUP = &H2

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _

ByVal bScan As Byte, ByVal dwFlags _

As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()

Timer1.Enabled = False

End Sub

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Call keybd_event(VK_ESCAPE, 0, 0, 0)

Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)

End Sub

Selamat mencoba dan semoga bermanfaat

Jangan lupa komennya makasih.