Private Sub File_Click()

End Sub

Private Sub mnuPayment_Click()
txtPayment.Enabled = Not txtPayment.Enabled
mnuPayment.Checked = txtPayment.Enabled
mnuPayment.Checked = False
mnuPresentValue = True
mnuFutureValue = True
End Sub

Private Sub mnuPresentValue_Click()
txtPresentValue.Enabled = Not txtPresentValue.Enabled
mnuPresentValue.Checked = txtPresentValue.Enabled
mnuPayment.Checked = True
mnuPresentValue.Checked = False
mnuFutureValue.Checked = True
End Sub

Private Sub mnuFutureValue_Click()
txtFutureValue.Enabled = Not txtFutureValue.Enabled
mnuFutureValue.Checked = txtFutureValue.Enabled

mnuPayment.Checked = True
mnuFutureValue.Checked = False
mnuPresentValue.Checked = True

End Sub

I am trying to select only one of the menu items which by deselecting other two items...any suggestions w/ the error in the code.


Thanxs for the help in advance