Ok I have a CASE statement in my program and I want to add to conditions onto the end of each selection but for some reason it wont let me.

Here's my code just now

VB Code:
  1. Select Case ButtonCounter
  2.         Case 1
  3.           Call Question1
  4.         Case 2
  5.           Call Question2
  6.         Case 3
  7.           Call Question3
  8. .... etc
  9.         End select

I would LIKE it to look like this

VB Code:
  1. Select Case ButtonCounter
  2.         Case 1
  3.           Call Question1 [B]And icorrect = 2[/B]
  4.         Case 2
  5.           Call Question2 [B]And icorrect = 3[/B]
  6.         Case 3
  7.           Call Question3 [B]And icorrect = 1[/B]
  8. .... etc
  9.         End select

For some reason it doesn't like this though and says that there is an "expected end of statement".

Can someone help me to get this to work?

Thanks.