[Help]How to shorten code into sectoins

[poneboy00]

I want to shorten my code in to region like segments, but the #Region method doesn't work. Is there any other way to do that. My code has a lot of select case structures, and I want to make each one into a region. Here's an example:

' Primary Weapons
        Select Case primary

            ' Assault Rifles
            Case 1 And level >= 4
                primaryBox.Image = My.Resources.m4a1_prev
            Case 2 And level >= 4
                primaryBox.Image = My.Resources.famas_prev
            Case 3 And level >= 8
                primaryBox.Image = My.Resources.scar_h_prev
            Case 4 And level >= 20
                primaryBox.Image = My.Resources.tar_21_prev
            Case 5 And level >= 28
                primaryBox.Image = My.Resources.fal_prev
            Case 6 And level >= 40
                primaryBox.Image = My.Resources.m16a4_prev
            Case 7 And level >= 48
                primaryBox.Image = My.Resources.acr_prev
            Case 8 And level >= 60
                primaryBox.Image = My.Resources.f2000_prev
            Case 9 And level >= 70
                primaryBox.Image = My.Resources.ak_47_prev

                ' Sniper Rifles
            Case 10 And level >= 4
                primaryBox.Image = My.Resources.intervention_prev
            Case 11 And level >= 4
                primaryBox.Image = My.Resources.barrett_50cal_prev
            Case 12 And level >= 36
                primaryBox.Image = My.Resources.wa2000_prev
            Case 13 And level >= 56
                primaryBox.Image = My.Resources.m21_ebr_prev

                ' LMG
            Case 14 And level >= 4
                primaryBox.Image = My.Resources.l86_lsw_prev
            Case 15 And level >= 4
                primaryBox.Image = My.Resources.rpd_prev
            Case 16 And level >= 16
                primaryBox.Image = My.Resources.mg4_prev
            Case 17 And level >= 32
                primaryBox.Image = My.Resources.aug_hbar_prev
            Case 18 And level >= 52
                primaryBox.Image = My.Resources.m240_prev

                ' SMG
            Case 19 And level >= 4
                primaryBox.Image = My.Resources.mp5k_prev
            Case 20 And level >= 4
                primaryBox.Image = My.Resources.ump45_prev
            Case 21 And level >= 12
                primaryBox.Image = My.Resources.vector_prev
            Case 22 And level >= 24
                primaryBox.Image = My.Resources.p90_prev
            Case 23 And level >= 44
                primaryBox.Image = My.Resources.mini_uzi_prev
        End Select

There's about 4 more of things like that.

[Shocker2010]

im pretty sure u cant!! you'd have to look on google or ask Nextgen1

[NextGen1]

[php]
#Region "AssualtRifle"


Private Sub Assualt()
Select primary


Case 1 And level >= 4
primaryBox.Image = My.Resources.m4a1_prev
Case 2 And level >= 4
primaryBox.Image = My.Resources.famas_prev
Case 3 And level >= 8
primaryBox.Image = My.Resources.scar_h_prev
Case 4 And level >= 20
primaryBox.Image = My.Resources.tar_21_prev
Case 5 And level >= 28
primaryBox.Image = My.Resources.fal_prev
Case 6 And level >= 40
primaryBox.Image = My.Resources.m16a4_prev
Case 7 And level >= 48
primaryBox.Image = My.Resources.acr_prev
Case 8 And level >= 60
primaryBox.Image = My.Resources.f2000_prev
Case 9 And level >= 70
primaryBox.Image = My.Resources.ak_47_prev
End Sub
#End Region

#Region "Super Rifles"
Private Sub SMG()
Case 10 And level >= 4
primaryBox.Image = My.Resources.intervention_prev
Case 11 And level >= 4
primaryBox.Image = My.Resources.barrett_50cal_prev
Case 12 And level >= 36
primaryBox.Image = My.Resources.wa2000_prev
Case 13 And level >= 56
primaryBox.Image = My.Resources.m21_ebr_prev
End Sub
Private Sub LMG ()
Case 14 And level >= 4
primaryBox.Image = My.Resources.l86_lsw_prev
Case 15 And level >= 4
primaryBox.Image = My.Resources.rpd_prev
Case 16 And level >= 16
primaryBox.Image = My.Resources.mg4_prev
Case 17 And level >= 32
primaryBox.Image = My.Resources.aug_hbar_prev
Case 18 And level >= 52
primaryBox.Image = My.Resources.m240_prev
End Sub
Private Sub SMG()
Case 19 And level >= 4
primaryBox.Image = My.Resources.mp5k_prev
Case 20 And level >= 4
primaryBox.Image = My.Resources.ump45_prev
Case 21 And level >= 12
primaryBox.Image = My.Resources.vector_prev
Case 22 And level >= 24
primaryBox.Image = My.Resources.p90_prev
Case 23 And level >= 44
primaryBox.Image = My.Resources.mini_uzi_prev
End Select
End Sub

#End Region

[/php]

If that's what you mean, :Goes back and reads post:

[poneboy00]

It won't let me do that because I'm trying to do it inside the button click procedure.

[NextGen1]

If that is the case, not gonna happen.

Sorry but region (no similar) won't work inside code "blocks"

[poneboy00]

So I'm stuck with scrolling then.