It does occur to me that I have the code that causes this appearance change......
Public
Sub Snap() ' to the Little Square FrmToolBar.Settings.InhibitWritingChangeofContainerSizeParamaters(
True) If FrmToolBar.Smp.btCurrentFormMode <> FrmToolBar.Smp.cFloatMode Then FrmToolBar.Smp.bON_Form =
True FrmToolBar.Smp.bSelectButtonDown =
True SetBar_Width(ScreenManagementPacket.cSnapWidth)
SetBar_Height(ScreenManagementPacket.cSnapHeight)
Select Case FrmToolBar.Smp.btScreenRegion
Case ScreenManagementPacket.cRegionTop SetBar_Y(FrmToolBar.Smp.ptCursorPosition.y + 5)
SetBar_X(FrmToolBar.Smp.ptCursorPosition.x - (FrmToolBar.Width / 2))
Case ScreenManagementPacket.cRegionRight SetBar_Y(FrmToolBar.Smp.ptCursorPosition.y + 10)
SetBar_X(FrmToolBar.Smp.ptCursorPosition.x - ScreenManagementPacket.cSnapWidth)
Case ScreenManagementPacket.cRegionBottom SetBar_Y(FrmToolBar.Smp.ptCursorPosition.y - FrmToolBar.Smp.iFormHeight - 3)
SetBar_X(FrmToolBar.Smp.ptCursorPosition.x - (FrmToolBar.Width / 2))
Case ScreenManagementPacket.cRegionLeft SetBar_Y(FrmToolBar.Smp.ptCursorPosition.y - FrmToolBar.Smp.iFormHeight / 2)
SetBar_X(FrmToolBar.Smp.ptCursorPosition.x)
End Select 'deal with toolbar
FrmToolBar.Cntnr.Location =
New Point(12, 12) FrmToolBar.ToolBar.Dock = DockStyle.Fill
FrmToolBar.ToolBar.LayoutStyle = ToolStripLayoutStyle.Flow
FrmToolBar.Cntnr.Size =
New Size(ScreenManagementPacket.cSnapWidth - 30, ScreenManagementPacket.cSnapWidth - 30) FrmToolBar.DropDownButton.ShowDropDownArrow =
True FrmToolBar.ToolBar.TextDirection = ToolStripTextDirection.Horizontal
FrmToolBar.Smp.btCurrentFormMode = FrmToolBar.Smp.cFloatMode
FrmToolBar.Smp.btScreenRegion = ScreenManagementPacket.cRegionNoRegion
FrmToolBar.Settings.StoreRegion(ScreenManagementPacket.cRegionNoRegion)
End If FrmToolBar.Settings.InhibitWritingChangeofContainerSizeParamaters(
False) End Sub