DO CASE
CASE MBATCH = 1 .AND. BATCHTYPE = 1
DO FORM ADDBTCHMNT
THISFORM.RELEASE
CASE MBATCH = 1 .AND. BATCHTYPE = 2
nAnswer = MESSAGEBOX('ERROR MESSAGE', 0, 'This Batch Type is not available for this Option')
nanswer = 0
wait window 'Please choose another Option' nowait
ENDCASE

mbatch is the control source for the 1st optionbuttongroup and batchtype is the control source for the 2nd optionbuttongroup
there are more similar case statements to follow up to mbatch = 6 .and. batchtype = 6 but since I can't get the second case statement to work have stopped there. It just ignores that I have pressed the option2 after I have pressed option1.

The case statement is under the 2nd optionbuttongroup with the procedure valid

Thanks

Jennifer