Option Explicit

Private Sub cmdstart_Click()
    On Error Resume Next

    If Not IsNumeric(txtinterval.Text) Then
        Call MsgBox("Interval must be a number pl0x", vbOKOnly, "Error")
        Exit Sub
    End If
   
    If txtinterval.Text < 1000 Then
        If MsgBox("Any interval lower than a 1000, may make it more difficult to stop the app. Do you want to proceed with this interval?", vbYesNo, "Confirmation") = vbNo Then
            Exit Sub
        End If
    End If
   
    Timer1.Enabled = True
End Sub

Private Sub cmdStop_Click()
    On Error Resume Next
    Timer1.Enabled = False
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Timer1.Enabled = False
End Sub

Private Sub Halp_Click()
    frmhalp.Show
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next
    Timer1.Interval = txtinterval.Text
   
    '    AppActivate (txtuser.Text)
   
    SendKeys txtmsg.Text

    SendKeys "{enter}"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, _
                         Shift As Integer)
    'make sure KeyPreview is True on Form Properties
    On Error Resume Next

    Select Case KeyCode

        Case vbKeyF1 'Then Find which key you want to use from the list below
            'Code to run when key is pressed
            frmhalp.Show
    End Select

End Sub