当达到设定的时间时，弹出msgbox提示，但在玩游戏时，弹出的提示框不能看到，求大神帮改代码。
谢谢
Private Sub Command1_Click()
Timer1.Enabled = True
Text1.Text = Minute(Now): Text2.Text = Val(Text1.Text) + Val(Text3.Text)
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) + 1
If Text1.Text = Text2.Text Then
MsgBox "刷课时，定时提醒", vbOKCancel, "提示"
Form1.Show
End If
End Sub

vbokcancel+4096就行

那怎么对付课时会自动暂停。

关于【MsgBox】靠上边缘的方法，我建议用弹出窗体来解决。
Form2.Show 1 '　弹出有模式窗体
在【Form2】中
Private Sub Form_Load()
Me.Left = (SCreen.Width - Me.Width) / 2
Me.Top = 0
End Sub

自行API百度SetWindowPos