Visual Basic Programming Code Examples Visual Basic > Graphics Games Programming Code Examples Disappearing Toolbar Disappearing Toolbar Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Select Case Toolbar1.Align Case 1 If Y < 50 Then Toolbar1.Visible = True Else Toolbar1.Visible = False End If Case 2 If Y > (Me.Height - 50) Then Toolbar1.Visible = True Else Toolbar1.Visible = False End If Case 3 If X < 50 Then Toolbar1.Visible = True Else Toolbar1.Visible = False End If Case 4 If X > (Me.Width - 50) Then Toolbar1.Visible = True Else Toolbar1.Visible = False End If Case Else If Y > (Toolbar1.Top) And Y < (Toolbar1.Top + Toolbar1.Height) Then Toolbar1.Visible = True Else Toolbar1.Visible = False End If End Select End Sub