vb的编写OCX中怎样读 OCX所在Form表单控件的值

Question

我在OCX中有方法,想把form传给OCX
Public Sub send(ss As String, frm As form)
Lptout "d:\1.xml", frm
End Sub
这个应该是公用的
不过我这样定义在编译时会报错,提示为
编译错误:
类型为私有(private)的物件模组在公用的(public)物件模组中,不可以作为公用(public)程式的参数或传回型态,不可作为公用资料成员,也不可以作为公用使用者自订型态的栏位.我这样做就是可以通过frm.Controls("控件名")来读出控件的值.
如有其它解决方法也可以哦

Answer 1

Public Sub send(ss As String, frm As object)
Lptout "d:\1.xml", frm
End Sub

Answer 2

枚举Parent.Script.documenty.all集合找到你的form
support.microsoft.com/kb/172763

Answer 3

各位好
   frm As object 這個好像不行哦！
 因爲我後來想到在OCX中定義一個公用屬性，再把畫面傳過去，還是有點問題。  Dim frm As Object
   frm = form1
or
  Dim frm as Form
   frm = form1 
都會報錯提示為 
   沒有設定物件變數或with區塊變數各位大哥,發表發表意見哦,什麽問題哦!jiangsheng(蒋晟.Net[MVP]) 您的回答看不懂哦,能說詳細點嗎?