vbAccelerator - Contents of code file: frmTest.frm

VERSION 5.00
Object = "{76A5D4ED-0D69-44AD-835D-B1429EF8E25C}#1.0#0"; "vbalDkTb6.ocx"
Begin VB.Form frmTest 
   Caption         =   "Form1"
   ClientHeight    =   7680
   ClientLeft      =   2415
   ClientTop       =   2130
   ClientWidth     =   9390
   LinkTopic       =   "Form1"
   ScaleHeight     =   7680
   ScaleWidth      =   9390
   Begin vbalDkTb6.vbalDockContainer vbalDockContainer4 
      Align           =   4  'Align Right
      Height          =   7620
      Left            =   9360
      TabIndex        =   7
      Top             =   30
      Width           =   30
      _ExtentX        =   53
      _ExtentY        =   13441
   End
   Begin vbalDkTb6.vbalDockContainer vbalDockContainer3 
      Align           =   3  'Align Left
      Height          =   7620
      Left            =   0
      TabIndex        =   6
      Top             =   30
      Width           =   30
      _ExtentX        =   53
      _ExtentY        =   13441
   End
   Begin vbalDkTb6.vbalDockContainer vbalDockContainer2 
      Align           =   2  'Align Bottom
      Height          =   30
      Left            =   0
      TabIndex        =   5
      Top             =   7650
      Width           =   9390
      _ExtentX        =   16563
      _ExtentY        =   53
   End
   Begin vbalDkTb6.vbalDockContainer vbalDockContainer1 
      Align           =   1  'Align Top
      Height          =   30
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   9390
      _ExtentX        =   16563
      _ExtentY        =   53
   End
   Begin VB.PictureBox picClient 
      BackColor       =   &H80000005&
      Height          =   2175
      Left            =   1260
      ScaleHeight     =   2115
      ScaleWidth      =   4635
      TabIndex        =   0
      Top             =   420
      Width           =   4695
      Begin VB.ListBox lstClient 
         Height          =   1620
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   2415
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "Add"
         Height          =   375
         Left            =   2520
         TabIndex        =   2
         Top             =   0
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Remove"
         Height          =   375
         Left            =   2520
         TabIndex        =   1
         Top             =   480
         Width           =   1335
      End
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub setClientArea()
   picClient.Move vbalDockContainer3.Width, vbalDockContainer1.Height,
    Me.ScaleWidth - vbalDockContainer3.Width - vbalDockContainer4.Width,
    Me.ScaleHeight - vbalDockContainer1.Height - vbalDockContainer2.Height
End Sub


Private Sub Form_Load()
         
         
         
   With vbalDockContainer1
      .Add "MENU", 256, 26, 256, 26, "Menu Bar", , , , True
      .Add "EDIT", 256, 48, 256, 48, "Edit"
      .Add "UTILITY", 96, 26, 96, 26, "Utility"
   End With
   
   With vbalDockContainer3
      .Add "DRAWING", 128, 26, 128, 26, "Drawing"
      .Add "TABLES", 192, 26, 192, 26, "Tables"
      .Add "HELP", 64, 26, 64, 26, "Help"
   End With
   
End Sub

Private Sub vbalDockContainer1_sizeChanged()
   setClientArea
End Sub

Private Sub vbalDockContainer2_SizeChanged()
   setClientArea
End Sub

Private Sub vbalDockContainer3_sizeChanged()
   setClientArea
End Sub

Private Sub vbalDockContainer4_sizeChanged()
   setClientArea
End Sub