2006-03-30 08:26:18最愛五月天的櫻桃
程式碼pe4
Private Sub Image1_Click()
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Image1.Picture = LoadPicture(”投手.wmf”)
Case 1
Image1.Picture = LoadPicture(”醫生.wmf”)
Case 2
Image1.Picture = LoadPicture(”護士.wmf”)
Case 3
Image1.Picture = LoadPicture(”舞者.wmf”)
End Select
End Sub
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Image1.Picture = LoadPicture(”投手.wmf”)
Case 1
Image1.Picture = LoadPicture(”醫生.wmf”)
Case 2
Image1.Picture = LoadPicture(”護士.wmf”)
Case 3
Image1.Picture = LoadPicture(”舞者.wmf”)
End Select
End Sub