窗体一的：
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form1.Hide
End Sub
Private Sub Command3_Click()
Sum = 0
For i = 1 To 100
Sum = Sum + i
Next
Text1.Text = CStr(Sum)
End Sub
Private Sub Command4_Click()
Text1.Text = "由大变小"
Text1.FontSize = Text1.FontSize - 1
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.FontSize = 20
End Sub
窗体二的：
Private Sub chuangtiyi_Click()
Form1.Show
End Sub
Private Sub Form_Load()
End Sub
Private Sub sanhao_Click()
Print "显示文字"
End Sub
Private Sub sihao_Click()
End
End Sub
Private Sub yihao_Click()
Image1.Stretch = True
Image1.Picture = LoadPicture("E:\c4a1cbd5d3eac0bdd501[1].jpg")
End Sub
