Dialog Problem

[mkjp2011]

I keep getting this error

_______________________________________________
Statement is not available for this control
Line Number: 1120
Stopping Macro Playback.
_______________________________________________

Why am I getting this error.

Here is the Dialog code and its function code:

Sub accountLevelDialog
Begin Dialog accountLevelSelection 190,210,"Attributes at the Account Level", .acctLevelDlgFunction
CheckBox 15,16,68,12, "All Attributes", .CheckBox1
CheckBox 15,26,76,12, "Application Type", .CheckBox2
CheckBox 15,36,60,12, "Product Code", .CheckBox3
CheckBox 15,46,68,12, "BID", .CheckBox4
CheckBox 15,56,20,12, "ID", .CheckBox5
CheckBox 15,66,24,12, "CCT", .CheckBox6
CheckBox 15,76,40,12, "Sold By", .CheckBox7
CheckBox 15,86,28,12, "Rest", .CheckBox8
CheckBox 15,96,40,12, "Package", .CheckBox9
CheckBox 15,106,20,12, "ST", .CheckBox10
CheckBox 15,116,32,12, "DP-ID", .CheckBox11
CheckBox 15,126,40,12, "Legal 1", .CheckBox12
CheckBox 100,16,40,12, "Legal 2", .CheckBox13
CheckBox 100,26,40,12, "Legal 3", .CheckBox14
CheckBox 100,36,40,12, "Legal 4", .CheckBox15
CheckBox 100,46,40,12, "SSN-Tax", .CheckBox16
CheckBox 100,56,48,12, "Address 1", .CheckBox17
CheckBox 100,66,48,12, "Address 2", .CheckBox18
CheckBox 100,76,44,12, "Use From", .CheckBox19
CheckBox 100,86,20,12, "To", .CheckBox20
CheckBox 100,96,28,12, "City", .CheckBox21
CheckBox 100,106,32,12, "State", .CheckBox22
CheckBox 100,116,44,12, "Zip Code", .CheckBox23
GroupBox 15,140,150,45, "Customer Information"
CheckBox 18,150,28,12, "Rel", .Checkbox24
CheckBox 18,160,28,12, "Own", .Checkbox25
CheckBox 18,170,68,12, "PEP", .Checkbox26
CheckBox 100,150,30,12, "Name", .Checkbox27
CheckBox 100,160,30,12, "Comp", .Checkbox28
CheckBox 100,170,30,12, "Mail", .Checkbox29
PushButton 150,186,20,14, "Ok"
End Dialog
Dim myDialog as accountLevelSelection
Dialog myDialog
End Sub

Function acctLevelDlgFunction (identifier$,action,suppvalue)
Select Case action
Case 1
Case 2
If DlgControlID(identifier$) = 0 Then
If DlgValue(0) = 1 Then
RC_AllInd = 1
Else
RC_AllInd = 0
End If
End If
If DlgControlID(identifier$) = 1 Then
If DlgValue(1) = 1 Then
RC_typeInd = 1
Else
RC_typeInd = 0
End If
End If
If DlgControlID(identifier$) = 2 Then
If DlgValue(2) = 1 Then
RC_ProdInd = 1
Else
RC_ProdInd = 0
End If
End If
If DlgControlID(identifier$) = 3 Then
If DlgValue(3) = 1 Then
RC_BIDInd = 1
Else
RC_BIDInd = 0
End If
End If
If DlgControlID(identifier$) = 4 Then
If DlgValue(4) = 1 Then
RC_DateOpenedInd = 1
Else
RC_DateOpenedInd = 0
End If
End If
If DlgControlID(identifier$) = 5 Then
If DlgValue(5) = 1 Then
RC_ClosedInd = 1
Else
RC_ClosedInd = 0
End If
End If
If DlgControlID(identifier$) = 6 Then
If DlgValue(6) = 1 Then
RC_MaintInd = 1
Else
RC_MaintInd = 0
End If
End If
If DlgControlID(identifier$) = 7 Then
If DlgValue(7) = 1 Then
RC_AddressInd = 1
Else
RC_AddressInd = 0
End If
End If
If DlgControlID(identifier$) = 8 Then
If DlgValue(8) = 1 Then
RC_IDInd = 1
Else
RC_IDInd = 0
End If
End If
If DlgControlID(identifier$) = 9 Then
If DlgValue(9) = 1 Then
RC_CCTInd = 1
Else
RC_CCTInd = 0
End If
End If
If DlgControlID(identifier$) = 10 Then
If DlgValue(10) = 1 Then
RC_SoldByInd = 1
Else
RC_SoldByInd = 0
End If
End If
If DlgControlID(identifier$) = 11 Then
If DlgValue(11) = 1 Then
RC_RestInd = 1
Else
RC_RestInd = 0
End If
End If
If DlgControlID(identifier$) = 12 Then
If DlgValue(12) = 1 Then
RC_PackageInd = 1
Else
RC_PackageInd = 0
End If
End If
If DlgControlID(identifier$) = 13 Then
If DlgValue(12) = 1 Then
RC_STInd = 1
Else
RC_STInd = 0
End If
End If
If DlgControlID(identifier$) = 14 Then
If DlgValue(14) = 1 Then
RC_DPIDInd = 1
Else
RC_DPIDInd = 0
End If
End If
If DlgControlID(identifier$) = 15 Then
If DlgValue(15) = 1 Then
RC_Legal1Ind = 1
Else
RC_Legal1Ind = 0
End If
End If
If DlgControlID(identifier$) = 16 Then
If DlgValue(16) = 1 Then
RC_Legal2Ind = 1
Else
RC_Legal2Ind = 0
End If
End If
If DlgControlID(identifier$) = 17 Then
If DlgValue(17) = 1 Then
RC_Legal3Ind = 1
Else
RC_Legal3Ind = 0
End If
End If
If DlgControlID(identifier$) = 18 Then
If DlgValue(18) = 1 Then
RC_Legal4Ind = 1
Else
RC_Legal4Ind = 0
End If
End If
If DlgControlID(identifier$) = 18 Then
If DlgValue(18) = 1 Then
RC_Legal4Ind = 1
Else
RC_Legal4Ind = 0
End If
End If
If DlgControlID(identifier$) = 19 Then
If DlgValue(19) = 1 Then
RC_SSNTaxInd = 1
Else
RC_SSNTaxInd = 0
End If
End If
If DlgControlID(identifier$) = 20 Then
If DlgValue(20) = 1 Then
RC_Address1Ind = 1
Else
RC_Address1Ind = 0
End If
End If
If DlgControlID(identifier$) = 21 Then
If DlgValue(21) = 1 Then
RC_Address2Ind = 1
Else
RC_Address2Ind = 0
End If
End If
If DlgControlID(identifier$) = 22 Then
If DlgValue(22) = 1 Then
RC_UseFromInd = 1
Else
RC_UseFromInd = 0
End If
End If
If DlgControlID(identifier$) = 23 Then
If DlgValue(23) = 1 Then
RC_ToInd = 1
Else
RC_ToInd = 0
End If
End If
If DlgControlID(identifier$) = 24 Then
If DlgValue(24) = 1 Then
RC_CityInd = 1
Else
RC_CityInd = 0
End If
End If
If DlgControlID(identifier$) = 25 Then
If DlgValue(25) = 1 Then
RC_StateInd = 1
Else
RC_StateInd = 0
End If
End If
If DlgControlID(identifier$) = 26 Then
If DlgValue(26) = 1 Then
RC_ZipInd = 1
Else
RC_ZipInd = 0
End If
End If
If DlgControlID(identifier$) = 27 Then
If DlgValue(27) = 1 Then
RC_RelInd = 1
Else
RC_RelInd = 0
End If
End If
If DlgControlID(identifier$) = 28 Then
If DlgValue(28) = 1 Then
RC_OwnInd = 1
Else
RC_OwnInd = 0
End If
End If
If DlgControlID(identifier$) = 29 Then
If DlgValue(29) = 1 Then
RC_PEPInd = 1
Else
RC_PEPInd = 0
End If
End If
If DlgControlID(identifier$) = 30 Then
If DlgValue(30) = 1 Then
RC_NameInd = 1
Else
RC_NameInd = 0
End If
End If
If DlgControlID(identifier$) = 31 Then
If DlgValue(31) = 1 Then
RC_CompInd = 1
Else
RC_CompInd = 0
End If
End If
If DlgControlID(identifier$) = 32 Then '
If DlgValue(32) = 1 Then
RC_MailInd = 1
Else
RC_MailInd = 0
End If
End If
End Select
End Function