事件名稱

過程代碼

命令按鈕的單擊事件

Private Sub Command1_Click()  

Option1.Visible = True

Option2.Visible = True

Label1.ForeColor = RGB(0, 0, 255)

Label1.Caption = "    ？  ？  ？"

End Sub

窗體的單擊事件

Private Sub Form_Click()      

Form1.Picture = LoadPicture("d:\sj\abc.jpg")

Option1.Visible = False

Option2.Visible = False

Label1.ForeColor = RGB(255, 0, 0)

Label1.Caption = "預祝大家成功，干杯！"

End Sub

窗體的雙擊事件

Private Sub Form_DblClick()    

Form1.Picture = LoadPicture("")

Label1.Caption = "  歡迎你學習VB！！"

End Sub

選項按鈕1的單擊事件

Private Sub Option1_Click()     

Label1.Caption = "看清楚 聽明白 記下來"

End Sub

選項按鈕2的單擊事件

Private Sub Option2_Click()    

Label1.Caption = "多上機 勤思考 善提問"

End Sub