2006-05-09 16:10:18~!MOON!~

電腦作業2

Private Sub Command1_Click()

If Option1.Value = True Then
Image1.Picture = Image2.Picture

ElseIf Option2.Value = True Then
Image1.Picture = Image3.Picture

ElseIf Option3.Value = True Then
Image1.Picture = Image4.Picture

ElseIf Option4.Value = True Then
Image1.Picture = Image5.Picture

Else
MsgBox 請選圖案

End If

End Sub