热件问题?

Question

'---------module:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Public Function MyHotKey(vKeyCode) As Boolean
    MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
'-----------formPrivate Sub Timer1_Timer()
     If MyHotKey(vbKeyF3) Then Check2.value = 1
End SubPrivate Sub Timer2_Timer()
    If MyHotKey(vbKeyF4) Then
       If Check2.value <> 2 Then Check2.value = 2
     End If
End SubPublic Sub Check2_Click()
    With Check2
        If .value = 1 Then
             Timer1.Enabled = False
             Call forecast_msg
             Picture1.Visible = True
            .Caption = "隐藏预警信息"
            
        Else
            Picture1.Visible = False
            .Caption = "显示预警信息"
            Timer1.Enabled = True
        End If
    End With
    On Error GoTo lbb
    mdi_rst.Close
lbb:
    Err.Clear
    Set mdi_rst = Nothing
End Sub