Posted on January 4, 2009
1
2
3
4
5
6
7
| 'Forms - How to display or hide status bar along with check mark in menu
Private Sub mnuViewStatus_Click()
' First, add or remove the check sign.
mnuViewStatus.Checked = Not mnuViewStatus.Checked
' Then make the status bar visible or not.
staStatusBar.Visible = mnuViewStatus.Checked
End Sub |