Trying to convert a class module to a dll.
Error:
Private object modules cannot be used in public object modules
as parameteres or return types for public procedures, as
public data memebers, or as fields of public user defined
types.
Code:Error is caused by this: How do I get around it. Without it the resizing won't work. Public Property Let Form(ByVal fPassForm As Form) Dim iCount As Integer Dim cControl As Control Set fForm = fPassForm ' Store form's original Width & Height lOriginalWidth = fForm.Width lOriginalHeight = fForm.Height ' Use error trapping to ignore components that don't ' support certain properties being read at run-time On Error Resume Next ' Store the form's component's properties iCount = 0 ReDim aControls(fForm.Controls.Count) For Each cControl In fForm.Controls iCount = iCount + 1 With aControls(iCount) If TypeOf cControl Is Line Then .lLeft = cControl.X1 .lTop = cControl.Y1 .lWidth = cControl.X2 .lHeight = cControl.Y2 Else .lLeft = cControl.Left .lTop = cControl.Top .lWidth = cControl.Width .lHeight = cControl.Height End If End With Next ' Each End Property




Reply With Quote