for...next for bullets

If you want 16 bullets and you're using a Dim variable...

Dim Bullet(15)
;or
Global Bullet[15]

the number starts at 0 and goes to 15 which means there's 16 all together. Does that help at all?

Edit:
Btw you forgot an End Select

select whichweapon5
case 1
maxbullets%=(something)
case 2
maxbullets%=(something)
etc.
default
maxbullets%=16
end select