Mantener Control "Ctrl" precionado

[leandro_ortega]

muchas gracias boluart

por tu ayuda me facilitaste todo logre hacerlo nomas xd

Public Class Form1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_Ctrl = &H11


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Call keybd_event(VK_Ctrl, 0, 0, 0)
Call keybd_event(VK_Ctrl, 0, KEYEVENTF_KEYUP, 0)


Timer1.Enabled = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub
End Class

Salu2!