Public Const WM_CHAR As Int32 = &H102
    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
      ByVal hwnd As Int32, _
       ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As _
       Int32
 
    Public Sub SendKeysEx(ByVal hWnd As Int32, ByVal Alt As Boolean, ByVal _
      repeatcount As Integer,   _      
           ByVal ch As Byte)
        Dim lparam As UInt32 = 0
        If Alt Then lparam = lparam Or &H20000000
 
        While repeatcount > 0
            SendMessage(hWnd, WM_CHAR, ch, lparam)
            repeatcount -= 1
        End While
    End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2005