Al di lā del fatto che l'uso del goto č una pratica deprecabile, usando le classi del .NET Framework per la generazione di numeri casuali invece delle funzioni di compatibilitā con VB6 ti risparmi un sacco di problemi...
codice:
        Dim nRand As Int32
        Dim rnd As New System.Random()
        nRand = rnd.Next(2,3) 'il primo parametro č il numero minimo, il secondo il massimo
        Select Case nRand
            Case 2
                Form2.Show()
            Case 3
                Form3.Show()
        End Select