smokingtooless

Private Sub Disable_Click()
    Dim Response
    Dim oResult As Long
    Dim I
    NodeID.Text = m_wNodeId
    I = 1
    oResult = VCS_SetDisableState(m_KeyHandle, m_wNodeId, m_lErrorCode)
   
    'oResult = False everytime , so excute Do While ... Loop

    Do While I = 1
    If (oResult = False) Then
        Timer1.Enabled = False
      
        Timer2.Enabled = True
      
    End If
    Loop
End Sub
--------------------------------------
Private Sub Timer2_Timer()
  Dim Response
  Response = MsgBox("timer2", vbOKOnly, "Error", "", 0)
  Timer2.Enabled = False
End Sub

问题: 为什么执行后,不弹出msgbox"timer2" ?, 但是去掉Do While...Loop,却能弹出呢?