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 Tim

Option Explicit Private InitWidth As Long Form 的原始大小 Private InitHeight As Long Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On

Private Static Sub Form_Resize Dim bTimerWasOn As Boolean,(Private Static Sub Form_Resize Dim bTimerWasOn As a Boolean,)

Private Static Sub Form_Resize Dim bTimerWasOn As Boolean,(Private Static Sub Form_Resize Dim bTimerWasOn As a Boolean,)

Private Static Sub Form_Resize Dim bTimerWasOn As Boolean,()