Private Static Sub Form_Resize() Dim bTimerWasOn As Boolean cmdShuffle.SetFocus...

代码说明：

Private Static Sub Form_Resize() Dim bTimerWasOn As Boolean cmdShuffle.SetFocus Stop timer when game is minimized and start it when normalized If Me.WindowState = vbMinimized Then If Timer1.Enabled Then bTimerWasOn = True Else bTimerWasOn = False Timer1.Enabled = False Else If bTimerWasOn Then Timer1.Enabled = True End If End Sub-Private Static Sub Form_Resize() Dim bTimerWasOn As Boolean cmdShuffle.SetFocus Stop timer when game is minimized and start it when normalized If Me.WindowState = vbMinimized Then If Timer1.Enabled Then bTimerWasOn = True Else bTimerWasOn = False Timer1.Enabled = False Else If bTimerWasOn Then Timer1.Enabled = True End If End Sub