Resizable Frames

[Mc Brain]

Maybe this helps:

Private Moving As Boolean
Public PosX As Long
 
 
Private Sub Separator_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Moving = True
End Sub
 
Private Sub Separator_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Moving Then
        PosX = Separator.Left + x
        If PosX < 0 Then PosX = 0
        If PosX > ScaleWidth Then PosX = ScaleWidth - Separator.Width
        Moving = False
        ReDrawSeparator
        Moving = True
    End If
End Sub
 
Private Sub Separator_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Moving = False
End Sub
 
Private Sub ReDrawSeparator()
    Dim fHeight As Single
    Dim TopPos As Single
    
    If Me.WindowState = vbMinimized Then Exit Sub
    TopPos = -TBAddress.Visible * (TBAddress.Height - 60)
    TBAddress.Top = TopPos - TBAddress.Height
    fHeight = Me.Height - TopPos - TV.Top - 200
    
    TV.Move 0, TopPos + 100, PosX, fHeight
    Separator.Move PosX, TopPos + 100, ScaleX(3, vbPixels, vbTwips), fHeight
    LV.Move PosX + Separator.Width, TopPos - 10, ScaleWidth - LV.Left, fHeight + 30
    'Don't know why.. but the second time sizes the LV correctly
    LV.Move PosX + Separator.Width, TopPos + 90, ScaleWidth - LV.Left, fHeight + 30
    
    TBAddress.Move 30, TBAddress.Top, ScaleWidth - 150
    WEPath.Width = TBAddress.Width - WEPath.Left - 60
    DoEvents
    
End Sub