Hell with this DLL

Hello Guys,
with the help of Mr. Mark, I managed to prepared an user control that resizes all the controls in the form when the form is resized. I altered and made the code as ActiveX Dll. I made a reference to the dll in a new project. But it is not working. What could be the reaons? Where i am wrong? Someone please help me out...

Here is the code i used in the exe project where the dll reference is made.

General Declaration:
-------------------
Dim resize As New FormResize.ResizeClass
-------
Private Sub Form_Resize()
resize.venkatIt
End Sub

Venkat.



------------------
[email protected]
ICQ: 45714766
http://venkat.iscool.net

Venkat

Here you are...

dll code:

Code:

---

Option Explicit

Dim PrevResizeX As Single
Dim PrevResizeY As Single
Private m_Parent As Object

  Public Property Let Parent(ByVal Parent As Object)
 
    On Error Resume Next

 
    Set m_Parent = Parent

   
  End Property
  Public Property Get Parent() As Object
  ' Return a reference to the parent object.
    On Error Resume Next

 
    Set Parent = m_Parent

   
  End Property
Public Sub venkatIt()
Dim tmpControl As Control
On Error Resume Next
'Ignores errors in case the control doesn't
'have a width, height, etc.

If PrevResizeX = 0 Then
'If the previous form width was 0
'Which means that this function wasn't run before
'then change prevresizex and y and exit function
PrevResizeX = m_Parent.ScaleWidth
PrevResizeY = m_Parent.ScaleHeight
Exit Sub
End If

For Each tmpControl In m_Parent
'A loop to make tmpControl equal to every
'control on the form

If TypeOf tmpControl Is Line Then
  'Checks the type of control, if its a
  'Line, change its X1, X2, Y1, Y2 values
  tmpControl.X1 = tmpControl.X1 / PrevResizeX * m_Parent.ScaleWidth
  tmpControl.X2 = tmpControl.X2 / PrevResizeX * m_Parent.ScaleWidth
  tmpControl.Y1 = tmpControl.Y1 / PrevResizeY * m_Parent.ScaleHeight
  tmpControl.Y2 = tmpControl.Y2 / PrevResizeY * m_Parent.ScaleHeight
  'These four lines see the previous ratio
  'Of the control to the form, and change they're
  'current ratios to the same thing
Else
  'Changes everything elses left, top
  'Width, and height
  tmpControl.Left = tmpControl.Left / PrevResizeX * m_Parent.ScaleWidth
  tmpControl.Top = tmpControl.Top / PrevResizeY * m_Parent.ScaleHeight
  tmpControl.Width = tmpControl.Width / PrevResizeX * m_Parent.ScaleWidth
  tmpControl.Height = tmpControl.Height / PrevResizeY * m_Parent.ScaleHeight
  'These four lines see the previous ratio
  'Of the control to the form, and change they're
  'current ratios to the same thing
End If

Next tmpControl

PrevResizeX = m_Parent.ScaleWidth
PrevResizeY = m_Parent.ScaleHeight
'Changes prevresize x and y to current width
'and height
End Sub

---

form code:

Code:

---

Option Explicit
Dim sizer As Object

Private Sub Form_Load()
Set sizer = New Project1.Class1
sizer.Parent = Me
End Sub

Private Sub Form_Resize()
sizer.venkatIt
End Sub

---

I'll let you know where to send the consultancy fees to! :) :) :)


------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

Hey Mark...

One day or the other I will be leaving for abroad....let me know ur place u live in..

If I had been the richest man, i would have showered you all with dollars..But...Still,
I will surely come give you the priceless friendship as consultancy fee....Thanx man.... ;)

Venkat.

------------------
[email protected]
ICQ: 45714766
http://venkat.iscool.net