vorrei suggerirti un metodo alternativo:

crea una matrice di controlli option (disegna il primo controllo poi copialo, incollalo e rispondi si alla message box) e poi gestisci tutto con una select.

es:

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0:
Form1.Show
Case 1:
Form2.Show
Case 2:
.
.'continua fino a quando non sono finiti gli elementi
.
End Select
End Sub

in questo modo eviti di complicarti la vita con una sfilza interminabile di if ... then ... else