Dim f1 As Integer = 0
        Dim f2 As Integer = 0
        Dim f3 As Integer = 0
        Dim f4 As Integer = 0
        Dim f5 As Integer = 0
        Dim f6 As Integer = 0
        Dim f7 As Integer = 0
        Dim f8 As Integer = 0
        Dim f9 As Integer = 0
        Dim f10 As Integer = 0
        Dim f11 As Integer = 0
        Dim f12 As Integer = 0
        f1 = GetAsyncKeyState(Keys.F1)
        f2 = GetAsyncKeyState(Keys.F2)
        f3 = GetAsyncKeyState(Keys.F3)
        f4 = GetAsyncKeyState(Keys.F4)
        f5 = GetAsyncKeyState(Keys.F5)
        f6 = GetAsyncKeyState(Keys.F6)
        f7 = GetAsyncKeyState(Keys.F7)
        f8 = GetAsyncKeyState(Keys.F8)
        f9 = GetAsyncKeyState(Keys.F9)
        f10 = GetAsyncKeyState(Keys.F10)
        f11 = GetAsyncKeyState(Keys.F11)
        f12 = GetAsyncKeyState(Keys.F12)
        'hotkey enable
        If ComboBox1.Text = "F1" Then
            If f1 = -32768 Then
                Timer2.Start()
                Timer4.Start()
                Timer5.Start()
                Timer6.Start()
            End If