Visual Basic > Graphics Games Programming sample source codes

Visual Basic Code > 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