have U tried SendMessage api?
"Kelly Smith" <power@cable.a2000.nl> wrote in message news:<YyqH9.19224$vj1.4592999@amsnews02.chello.com>...
> Hello,
>
> Desperately need help programming a Visual Keyboard. I am a newbie VB-6
> programmer. I am struggeling with something. Unfortunately I didn't find any
> code for what I want, my Virtual Keyboard to do.
>
> I made a lovely interface. Keyboard exists with command buttons. Allmost the
> same as Microsoft Visual Keyboard, but mine isn't working
.
> I cannot call ALT, SHIFT, ESC, MENU, TAB, BACKSPACE, F1, F2... buttons and
> also have problems finding code for sending Keys to previous window (or the
> box where I click with the mouse, into a place where I want to write with my
> VKeyboard). I use OnTopMost for my Form (Keyboard).
> I found something that first opens a notepad and than sends the key. It has
> to send keys to any application that uses texboxes, like I-explorer,
> notepad, E-mail, etc...
>
> Example:
>
> Private Declare Function OemKeyScan Lib "user32" (ByVal wOemChar As
> Integer) As Long
> Private Declare Function CharToOem Lib "user32" Alias "CharToOemA"
> (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
> Private Declare Function MapVirtualKey Lib "user32" Alias
> "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
> Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As
> Byte) As Long
> Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As
> Long) As Integer
> Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
> bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
>
> Private Const KEYEVENTF_EXTENDEDKEY = &H1
> Private Const KEYEVENTF_KEYUP = &H2
> ...
> ...
> Const VK_Q = 81
> ...
> ...
> Private Sub Command29_Click(Index As Integer)
> Shell "C:\WINNT\Notepad.exe", vbNormalFocus
> keybd_event VK_Q, 0, 0, 0 'Q Key
> keybd_event VK_Q, 0, KEYEVENTF_KEYUP, 0
> End Sub
>
> Please can someone help me, or guide me on this? I am trying programming it
> for months now (I am a beginner)! Please send me an e-mail, because I could
> mis your msg (my e-mail is power@cable.a2000.nl)
>
>
> Thanks A LOT! xxx