（1）
Private Sub Command1_Click()
Print "AAAAAAA"
Text1.Text = "BBBBBB"
End Sub
（2）
Private Sub Command1_Click()
Text1.Move 0, 0
Text1.Text = "欢迎使用"
End Sub
（3）
Private Sub Form_Load()
Me.Move 1000, 2000, 6000, 3000
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024