VERSION 5.00
Begin VB.Form frmResize 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "PlayList Window"
   ClientHeight    =   6285
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4935
   LinkTopic       =   "Form1"
   ScaleHeight     =   6285
   ScaleWidth      =   4935
   ShowInTaskbar   =   0   'False
   Begin VB.Image picRight 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   6135
      Left            =   4800
      MousePointer    =   9  'Size W E
      Top             =   0
      Width           =   135
   End
   Begin VB.Image picDown 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   135
      Left            =   0
      MousePointer    =   7  'Size N S
      Top             =   6120
      Width           =   4815
   End
   Begin VB.Image picBoth 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   135
      Left            =   4800
      MousePointer    =   8  'Size NW SE
      Top             =   6120
      Width           =   135
   End
End
Attribute VB_Name = "frmResize"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim LeftX As Single, TopY As Single

Private Sub Form_Load()
  ResetResizers
End Sub

Private Sub picBoth_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    LeftX = X
    TopY = Y
  End If
End Sub

Private Sub picBoth_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
  If Button = vbLeftButton Then
    picBoth.Left = picBoth.Left + X - LeftX
    picBoth.Top = picBoth.Top + Y - TopY
    Me.Width = picBoth.Left + picBoth.Width
    Me.Height = picBoth.Top + picBoth.Height
    
    ResetResizers
  End If
End Sub

Private Sub picDown_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    LeftX = X
    TopY = Y
  End If
End Sub

Private Sub picDown_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
  If Button = vbLeftButton Then
    picDown.Top = picDown.Top + Y - TopY
    Me.Height = picDown.Top + picDown.Height
    
    ResetResizers
  End If
End Sub

Private Sub picRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    LeftX = X
    TopY = Y
  End If
End Sub

Private Sub picRight_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
  If Button = vbLeftButton Then
    picRight.Left = picRight.Left + X - LeftX
    picRight.Height = picBoth.Top
    Me.Width = picRight.Left + picRight.Width
    
    ResetResizers
  End If
End Sub

Private Sub ResetResizers()
  picBoth.Left = Me.Width - picBoth.Width
  picBoth.Top = Me.Height - picBoth.Height
  picBoth.ZOrder (0)
  
  picRight.Left = Me.Width - picRight.Width
  picRight.Top = 0
  picRight.Height = picBoth.Top + Screen.TwipsPerPixelY
  picRight.ZOrder (0)
  
  picDown.Left = 0
  picDown.Top = Me.Height - picDown.Height
  picDown.Width = picBoth.Left + Screen.TwipsPerPixelX
End Sub