resize form while havin the application running

Use this:

http://wareseeker.com/Software-Development/ActiveResize-Control-Lite-3.0.zip/60226175

If you can provide me with the code to do this that would be really helpfull. i cant use any outside tools in my application

If no 3rd party controls allowed, then Frosty's answer is your only solution.

Frostys can i get a complete working sample code of what you have written. that would be great, as i need to wind up this project your help is highl appreciated

Is there any one who can give me a sample working code on VBA to

Resize a form based on the user drag
Resize the controls on the form based on the form size
Resize the font size of all controls based on the above 2

Forsty thank for the pseudocode, two things which i have to mention, firstly i have a code for resizing the form which resize the form only not the controls inside the form, please see the code below. Secondly in the below code where do i call the logic to resize the control when form is getting resized. I tried calling the control resize logic on m_objResizer_MouseMove but the control does not get resized rather it disappears. The control resize logic (ResizeControls) is at the end.

Option Explicit

Private Const MResizer = "ResizeGrab"
Private WithEvents m_objResizer As MSForms.Label
Private m_sngLeftResizePos As Single
Private m_sngTopResizePos As Single
Private m_blnResizing As Single

Private Sub m_AddResizer()
'
' add resizing control to bottom righthand corner of userform
'
    Set m_objResizer = Me.Controls.Add("Forms.label.1", MResizer, True)
    With m_objResizer
        With .Font
            .Name = "Marlett"
            .Charset = 2
            .Size = 14
            .Bold = True
        End With
        .BackStyle = fmBackStyleTransparent
        .AutoSize = True
        .BorderStyle = fmBorderStyleNone
        .Caption = "o"
        .MousePointer = fmMousePointerSizeNWSE
        .ForeColor = RGB(100, 100, 100)
        .ZOrder
        .Top = Me.InsideHeight - .Height
        .Left = Me.InsideWidth - .Width
    End With
   
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub m_objResizer_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button = 1 Then
        m_sngLeftResizePos = X
        m_sngTopResizePos = Y
        m_blnResizing = True
    End If
   
End Sub
Private Sub m_objResizer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button = 1 Then
        With m_objResizer
            .Move .Left + X - m_sngLeftResizePos, .Top + Y - m_sngTopResizePos
            Me.Width = Me.Width + X - m_sngLeftResizePos
            Me.Height = Me.Height + Y - m_sngTopResizePos
            .Left = Me.InsideWidth - .Width
            .Top = Me.InsideHeight - .Height
        End With
    End If
    Call ResizeControls(Me, Me.height, Me.width)
End Sub
Private Sub m_objResizer_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        m_blnResizing = False
    End If
End Sub
Private Sub UserForm_Initialize()

    m_AddResizer
    Call GetLoc(Me, Me.height, Me.width)
End Sub
Private Sub UserForm_Terminate()

    Me.Controls.Remove MResizer
   
End Sub

Control resize code starts here
------------------------------------------------------------------------------------------------------------------------------
Private List() As Control
Private iHeight As Integer
Private iWidth As Integer
Private x_size As Double
Private y_size As Double


Private Type Control
    Indx As Integer
    Name As String
    Left As Integer
    Top As Integer
    width As Integer
    height As Integer
End Type

Public Sub ResizeControls(frm As UserForm, height As Integer, width As Integer)
Dim i As Integer
x_size = height / iHeight
y_size = width / iWidth

'Loop though all the objects on the form
'Based on the upper bound of the # of controls
Dim ctl As Object


For i = 0 To UBound(List)
    'Grad each control individually
       For Each ctl In frm.Controls
            'resize the control
             With ctl
                .Left = List(i).Left * y_size
                .width = List(i).width * y_size
                .height = List(i).height * x_size
                .Top = List(i).Top * x_size
             End With
    'Get the next control
    Next ctl
Next i
End Sub

Public Sub GetLoc(frm As UserForm, height As Integer, width As Integer)
Dim i As Integer
'   Load the current positions of each object into a user defined type array.
'   This information will be used to rescale them in the Resize function.

'Loop through each control
Dim ctl As Object
For Each ctl In frm.Controls
'Resize the Array by 1, and preserve
'the original objects in the array
    ReDim Preserve List(i)
    With List(i)
        .Name = ctl.Name
        .Left = ctl.Left
        .Top = ctl.Top
        .width = ctl.width
        .height = ctl.height
    End With
    i = i + 1
Next ctl
   
    iHeight = height
    iWidth = width

End Sub