Android Question Menu issue

[parijs]

I have the following menu click

Sub HMenu_Click(SelectedItem As Object)
HMenu.CloseMenu
HMenu.IsOpen  = True
Dim Value As String
Value = SelectedItem
st = ""
    Select Value    
      Case  "1"
    HMenu.CloseMenu
    hoofdmenu = "close"   
    Case "2"
    Main.mypdf = Main.keuze(1)
    Case "3"
    Main.mypdf = Main.keuze(2)
    Case "4"
    Main.mypdf = Main.keuze(3)
     Case "5"
    Main.mypdf = Main.keuze(4)   
     Case "6"   
    Main.mypdf = Main.keuze(5)
     Case "7"   
    Main.mypdf = Main.keuze(6)
      Case "8"
    Main.mypdf = Main.keuze(7)
     Case "9"   
    Main.mypdf = Main.keuze(8)
     Case "10"   
    Main.mypdf = Main.keuze(9)
     Case "11"   
    Main.mypdf = Main.keuze(10)       
     Case "12"   
    Main.mypdf = Main.keuze(11)       
     Case "13"   
    Main.mypdf = Main.keuze(12)
     Case "14"   
    Main.mypdf = Main.keuze(13)
     Case "15"   
    Main.mypdf = Main.keuze(14)   
     Case "16"   
    Main.mypdf = Main.keuze(15)   
    Case "17"   
    st = "storingscode"
    Main.mypdf = Main.keuze(16)
      Case "18"
    Main.mypdf = Main.keuze(17)
     Case "19"   
    Main.mypdf = Main.keuze(18)
     Case "20"   
    Main.mypdf = Main.keuze(19)
   
    End Select
   
    If st = "storingscode" Then
    HMenu.CloseMenu
    Storing
    Else
    StartActivity(pdfview)   
    Main.muntotaal = Main.munuwas       
    End If

End Sub

But sometimes I do not have more than 12 cases so I never come to Case "17"
St = "error code"
Is there another solution outside Case "17" place on Case "2"?

 

[DonManfred]

I dont understand the question. Can you describe it more clearly?

 

[parijs]

Hi sometimes the menu is filled with

Main.mun(13) = "Storingscodes"
ketel.st = "storingscode"
Main.mun(14) = "Aansluiten CV-systeem"
Main.keuze(14) = "atage13.pdf"

But the cases on my menu click are fixed
So the Storingscodes is not on 17 but on 13

 

[Erel]

Dim value As Int = SelectedItem
If value = 1 Then
 'do something
 Return
Else
 Main.pdf = Main.keuze(value - 1)
End If
If Value = 17 Then
    HMenu.CloseMenu
    Storing
Else
    StartActivity(pdfview)  
    Main.muntotaal = Main.munuwas      
  End If