vbAccelerator - Contents of code file: frmToolWindow.frm

VERSION 5.00
Begin VB.Form frmToolWindow 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Tool Window"
   ClientHeight    =   1665
   ClientLeft      =   5670
   ClientTop       =   4965
   ClientWidth     =   3090
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1665
   ScaleWidth      =   3090
   ShowInTaskbar   =   0   'False
   Begin VB.Label lblInfo 
      Caption         =   "The full drag image is *never* shown for this form."
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   2955
   End
End
Attribute VB_Name = "frmToolWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents m_c As cSizeMoveHelper
Attribute m_c.VB_VarHelpID = -1

Private m_frmParent As Form
Private m_bSticking As Boolean

Public Property Let ParentForm(ByRef f As Form)
   Set m_frmParent = f
End Property

Private Sub Form_Load()
   Set m_c = New cSizeMoveHelper
   m_c.NoFullDrag = True
   m_c.Attach Me.hwnd
End Sub

Private Sub Form_Resize()
   lblInfo.Move lblInfo.Left, lblInfo.Top, Me.ScaleWidth - lblInfo.Left * 2,
    Me.ScaleHeight - lblInfo.Top * 2
End Sub

Private Sub m_c_ExitSizeMove()
   m_bSticking = False
End Sub

Private Sub m_c_Moving(lLeft As Long, lTop As Long, lWidth As Long, lHeight As
 Long)
   If Not m_bSticking Then
   
   End If
End Sub

Private Sub m_c_Sizing(lLeft As Long, lTop As Long, lWidth As Long, lHeight As
 Long)
   If lWidth < 128 Then lWidth = 128
   If lHeight < 72 Then lHeight = 72
End Sub