窗体放置一个text1, 运行后点击窗体
Private Sub Form_Click()
Dim a As Integer
a = -20
If Text1.Left <= 0 Then a = -a
Text1.Left = Text1.Left + a
Do Until Text1.Left < 0 Or Text1.Left + Text1.Width > Me.Width
Text1.Left = Text1.Left + a
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024