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

Question

新建一个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 PropertyPrivate Sub Command1_Click()
Form1.Show vbModal
End Sub
在from1窗体中
Private Sub Command1_Click()
Dim u As UserControl1u.PenColor
End Sub
结果出现：无效使用属性.
请问该怎么使用呢?
thanks

Answer 1

你使用了这个控件了吗?
你首先需要在Form1上放置这个控件,然后使用s=Me.UserControl1.PenColor调用它的属性.
或者,你可以用Dim o as object /set o=CreateObject("你的类库名.UserControl")/s=o.PenColor调用属性.