idea for future builds : toggle menus

[VersionX]

Code:

Private Sub picInventory_click()
picInv.Visible = not picinv.visible
End Sub

Is there a better/less-verbose way to toggle the spells, it looks different:

Code:

Dim spellsVisible as Boolean

Private Sub Form_Load()
    frmMirage.Width=10080
    spellsVisible = false
End Sub

Private Sub picSpells_Click()
    If Not spellsVisible Then
        Call SendData("spells" & END_CHAR)
    Else
        Call lblSpellsCancel_Click
    End If
    spellsVisible = Not spellsVisible
End Sub