If any key is pressed on the keyboard I would like the application to say apple.
Code:
Private Sub Timer1_Timer()
Dim KeyResult As Integer
Dim i As Byte

    For i = 1 To 254

        KeyResult = GetAsyncKeyState(i)
           If KeyResult = -32767 Then
                
                Select Case i
                
                    Case i < 255
                    
                        MsgBox "apple"
                    
                End Select

            End If
            
        Next
        
    End Sub