Me.Move Screen.Width - Me.Width, 0
改成
Me.Move 0, 0
就是左上角了。
两个text控件，一个按钮，一个timer控件 ，代码如下： Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If Timer = Text1.Text Then
MsgBox Text2.Text, vbInformation, "提醒："
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024