PUBLIC SUB btnOpenForm1_Click()
DIM newform AS Form
' 这是一个IDE中创建的窗体,在屏幕上移动它。
Form1.Show ' 激活,首次显示Form1窗体
WAIT 1.5
Form1.X = 20
Form1.Y = 200 ' 移动窗体
WAIT 1.5
Form1.X = 90
Form1.Y = 150 ' 再次移动窗体
' 这是一个用程序代码新创建的窗体
newform = NEW Form
newform.x = 180
newform.Y = 180
newform.Caption = "另一个被创建的窗体"
newform.Show
END