timer控件的问题

Question

Private Sub Timer1_Timer()  '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  两要素自动处理
     m_hour = Hour(Now)
     Dim tt As Long     If tt = tdrunmin Then        Select Case m_hour
             Case 2
                DTP1.Value = Now
                 opt1_click
                CmdHand_Click             Case 8
                DTP1.Value = Now
                Opt2_Click
                CmdHand_Click
             Case 14
               opt3_click                CmdHand_Click
             Case 20
                opt4_click                CmdHand_Click
         End Select
     End If
end sub以上一段timer控件的代码
在代码中为什么opt1_click 到 opt4_click  和cmdHand_click都不执行呢？

Answer 1

应该是 tt 不等于 tdrunmin 的值。。