frmmain.frm

This ActiveX control and Demo will allow you to dock your toolbars/forms to a mdiform much in the wa

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "Docking Example 1.0"
   ClientHeight    =   3930
   ClientLeft      =   2115
   ClientTop       =   3150
   ClientWidth     =   6660
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.PictureBox picToolbarEx 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   420
      Left            =   0
      ScaleHeight     =   420
      ScaleWidth      =   6660
      TabIndex        =   3
      Top             =   375
      Width           =   6660
   End
   Begin VB.PictureBox picOutput 
      Align           =   2  'Align Bottom
      BorderStyle     =   0  'None
      Height          =   1320
      Left            =   0
      ScaleHeight     =   1320
      ScaleWidth      =   6660
      TabIndex        =   2
      Top             =   2610
      Width           =   6660
   End
   Begin VB.PictureBox picToolBar 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   375
      Left            =   0
      ScaleHeight     =   375
      ScaleWidth      =   6660
      TabIndex        =   1
      Top             =   0
      Width           =   6660
   End
   Begin VB.PictureBox picExplorer 
      Align           =   3  'Align Left
      BackColor       =   &H8000000A&
      BorderStyle     =   0  'None
      Height          =   1815
      Left            =   0
      ScaleHeight     =   1815
      ScaleWidth      =   1920
      TabIndex        =   0
      Top             =   795
      Width           =   1920
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "Help"
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
frmOutput.Show
frmToolbar.Show
frmExplorer.Show
frmToolbarEx.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Set fMainform = Nothing
End
End Sub


Private Sub mnuHelpAbout_Click()
frmOutput.FormDocker1.ShowAbout
End Sub

Private Sub picExplorer_Resize()
frmExplorer.FormDocker1.PicboxResize frmExplorer, picExplorer
End Sub

Private Sub picOutput_Resize()

frmOutput.FormDocker1.PicboxResize frmOutput, picOutput

End Sub

Private Sub picOutputDrag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)




End Sub

Private Sub picToolBar_Resize()
frmToolbar.FormDocker1.PicboxResize frmToolbar, picToolBar

End Sub

Private Sub picToolbarEx_Resize()
frmToolbarEx.FormDocker1.PicboxResize frmToolbarEx, picToolbarEx
End Sub