Tra l'altro, in aggiunta a quanto indicato da alka.

1) Attento che l'istruzione

Public Forms(3) As Form

crea 4 Form, perchè l'indice è base 0 quindi avrai: 0, 1, 2 e 3

2)
Ti consiglio vivamente di impostare come default su tutti i tuoi progetti
Option Strict su ON
per evitare errori del tipo:

Dim numeroacaso As Int16 = CInt (Int((1000 * Rnd()) + 1))

l'istruzione corretta è (ma avendo Option Strict su OFF non te lo segnala):
Dim numeroacaso As Integer = CInt(Int((1000 * Rnd()) + 1))