Hi everybody,

I have a class module as follows:

Private frm As Access.Form
-------------------------------

Public Property Get aForm() As Access.Form
   Set aForm = frm
End Property
-------------------------------

Public Property Let aForm(NewForm As Access.Form)
   Set frm = NewForm
End Property

Now, in a form's module, if I set the frm as under,
frm is not getting its value. Can someone please tell
me how to pass the Form object to the class module's
property object ?

-------------------------------
   Dim cUI As clsUI
   Set cUI = New clsUI
   
   Set cUI.aForm = Me
   With cUI
       .FormPosition = posTitle
       .ResizeMe
   End With