在VB60中如何从子窗体中获得父级是usercontrol的属性呢?

新建一个usercontrol activex
在上面画一个按钮,单击按钮显示另一个窗体.然后在这个窗体中按下按钮时，获得usercontrol的一个属性如下
在usercontrol 中
Public Property Get PenColor() As String
Select Case CurrentColor
Case RED
PenColor = "Red"
Case GREEN
PenColor = "Green"
Case BLUE
PenColor = "Blue"
End Select
End Property

Private Sub Command1_Click()
Form1.Show vbModal
End Sub


在from1窗体中
Private Sub Command1_Click()
Dim u As UserControl1

u.PenColor
End Sub
结果出现：无效使用属性.
请问该怎么使用呢?
thanks