Private Sub Text1_KeyPress(KeyAscii As Integer)
    hotkey = KeyAscii
    hotkey = Chr$(hotkey)
    hotkey2 = Asc(hotkey)
    Text1.Text = hotkey
        WritePrivateProfileString "keys", "hotkey", hotkey2, App.Path & _
          "progg.ini"
    key = "vbKey" + hotkey
    key2 = Asc(key)
End Sub
 
Private Sub timer4_Timer()
    If GetAsyncKeyState(key2) > 1 Then
            If status = 1 Then
                Timer1.Enabled = True
                Label1.Visible = True
            Else
                Exit Sub
            End If
    End If
End Sub