用户控件问题 答对的追加分!!!最高加到50分

请看我的代码

Option Explicit

'这个用户控件上有名为t1,t2的image,以及两个label:label1,label2

Event Click()
Public Property Get MyPicture() As Picture
Set MyPicture = T1.Picture
Set MyPicture = T2.Picture
End Property

Public Property Set MyPicture(ByVal New_HoverPicture As Picture)
Set T1.Picture = New_HoverPicture
Set T2.Picture = New_HoverPicture
RedrawControl
PropertyChanged "myPicture"

End Property
Public Property Get La_bel() As String
La_bel = Label2

End Property

Public Property Let La_bel(ByVal New_La_bel As String)

Label2 = New_La_bel

PropertyChanged "la_bel" '这几句是什么意思...还不是很清楚!

End Property

Private Function RedrawControl()

T1.Picture = MyPicture
T2.Picture = MyPicture

T2.Visible = False
T1.Visible = True
End Function

Private

用户控件问题 答对的追加分!!!最高加到50分 World问题，答对追加分。 化学问题答对追加分 关于大智慧的问题.(答对的追加分) 一条有挑战性的问题!!!!!!!!(答对追加10分以上) 一条有挑战性的问题!!!!!!!!!(答对追加10分以上) 一条有挑战性的问题!!!!!!!!!!(答对追加10分以上) Hotmail邮箱的问题,答对追加100分! 关于电脑硬件的问题，答对追加100分 关于《Easy》的四个问题 答对了追加30分