程序代码(form4) Private Sub Command 1 Click Form1. Show ◆ Unload Me ◆ End sub o Private Sub Form Click Mouselcon= LoadPicture("f: djkslpptlon ico") ◆ End sub Private Sub Picture1 Click picture 1. Picture LoadPicture(f: djkslppt\hn. jpg") End sub Private Sub Command1_Click()  Form1.Show  Unload Me  End Sub  Private Sub Form_Click()  MouseIcon = LoadPicture("f:\djks\ppt\on.ico")  End Sub  Private Sub Picture1_Click()  picture1.Picture = LoadPicture("f:\djks\ppt\hn.jpg")  End Sub 程序代码（form4）