Hallo

Erstmal vorweg, das Projekt wurde abgebrochen.

Das mit der Tastatur auslesen habe ich hinbekommen, hier der Code.

Code:
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" ( _
                         ByVal vKey As Long) As Integer
                         
Private Sub Form_Load()

    Timer1.Interval = 10
    Timer1.Enabled = True
    
End Sub

Private Sub Timer1_Timer()

    Dim Cnt As Long
    Dim x As Long
    
    For Cnt = 96 To 123
    
        If GetAsyncKeyState(Cnt) <> 0 Then
        
            Select Case Cnt
                
                   
            Case 96 ' 0
            
                MsgBox ("0")
                
            Case 97 ' 1
            
                MsgBox ("1")
                
            Case 98 ' 2
                
                MsgBox ("2")
                
            Case 99 ' 3
            
                MsgBox ("3")
                
            Case 100 ' 4
            
                MsgBox ("4")
                
            Case 101 ' 5
            
               MsgBox ("5")
                
            Case 102 ' 6
            
                MsgBox ("6")
                
            Case 103 ' 7
            
                MsgBox ("7")
                
            Case 104 ' 8
                
                MsgBox ("8")
                
            Case 105 ' 9
            
                MsgBox ("9")
                
            Case 106 '*
            
            MsgBox ("*")
                
            
            Case 107 '+
            
            MsgBox ("+")
            
            Case 109 '-
            
            MsgBox ("-")
            
            Case 110 '.
            
            MsgBox (".")
            
            Case 111 '/
            
            MsgBox ("/")
            
            Case 112 'F1
            
            MsgBox ("F1")
            
            Case 113 'F2
            
            MsgBox ("F2")
            
            Case 114 'F3
            
            MsgBox ("F3")
            
            Case 115 'F4
            
            MsgBox ("F4")
            
            Case 116 'F5
            
            MsgBox ("F5")
            
            Case 117 'F6
            
            MsgBox ("F6")
            
            Case 118 'F7
            
            MsgBox ("F7")
            
            Case 119 'F8
            
            MsgBox ("F8")
            
            Case 120 'F9
            
            MsgBox ("F9")
            
            Case 121 'F10
            
            MsgBox ("F10")
            
            Case 122 'F11
            
            MsgBox ("F11")
            
            Case 123 'F12
            
            MsgBox ("F12")
            
            
            End Select
            
            Exit For
            
        Else
            
            x = 1
            
        End If
        
  
        
    Next Cnt
    
    Me.Caption = CStr(x)
    
End Sub
Es werden hier der Zahlenblock und alle F. Tasten ausgelesen und dann erscheint in einem Fenster die gedrückte Taste.

mfg Luca