Problema con vettori di form

[rambco]

'dal form principale
Private Sub Command1_Click()
    If messaggio(0) Is Nothing Then
        Set messaggio(0) = New frmMessaggio
        messaggio(0).Label1 = "Pippo"
        messaggio(0).Show
    Else
        messaggio(0).Label1 = "Pippo2"
    End If
End Sub

'in un modulo
Public messaggio(2) As frmMessaggio 

Ora la domanda e' questa ! Quando premo la X per chiudere il form caricato la variabile messaggio(0) non riva in nothing e quindi non mi scarica il form ! Cosa devo e dove devo aggiungere per ovviare !? TNX