ocx 폼으로 값을 넘기기

-- asp ---
<object id="testocx" classid="clsid:5F2F0A02-04D1-461B-AF6F-D16DAA5929DA" >
  <param name="id" value="<%=session("id")%>"></param>
</object>

-- VB --
Dim aid As String

Private Sub UserControl_Initialize()
a = aid
b = "id : " + a
Text1.Text = b
End Sub

Public Property Get acceptid() As Variant
End Property

Public Property Let acceptid(ByVal id As Variant)
aid = id
End Property