Private Sub Form_Load()
change Me.ScaleWidth / 3
End Sub
Private Sub change(X As Integer)
If X < 1000 Then X = 1000
If X > Me.ScaleWidth - 1000 Then X = Me.ScaleWidth - 1000
p0.Height = Me.ScaleHeight
p1.Height = Me.ScaleHeight
p2.Height = Me.ScaleHeight
i1.Height = Me.ScaleHeight
p0.Left = X
p1.Width = X
i1.Left = X
p2.Left = X + 50
p2.Width = Me.ScaleWidth - X - 50
End Sub
Private Sub Form_Resize()
change Me.ScaleWidth / 3
End Sub
Private Sub i1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
isdraging = True
p0.Left = i1.Left
p0.Visible = True
End Sub
Private Sub i1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isdraging Then
change X + i1.Left
End If
End Sub
Private Sub i1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isdraging Then
isdraging = False
p0.Visible = False
End If
End Sub