This it?

VB Code:
  1. Private Sub mnuViewStatusBar_Click()

  2.     mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked

  3.     sbStatusBar.Visible = mnuViewStatusBar.Checked

  4. End Sub

or

VB Code:
  1. Private Sub mnuViewToolbar_Click()

  2.     mnuViewToolbar.Checked = Not mnuViewToolbar.Checked

  3.     tbToolBar.Visible = mnuViewToolbar.Checked

  4. End Sub