Chiusura Form

Ciao a tutti, vi chiedo cortesemente aiuto nel risolvere il seguente problema. Dalla Form Pippo apro la Form fUbicazione e gli passo dei parametri. Aperta la fUbicazione verifico che gli elementi richiesti siano stati trovati... in caso contrario mi appare una MessageBox e la fUbicazione si chiude. Posizionando un Close() dopo la MessageBox, quando l'esecuzione ritorna alla Form Pippo il comando fUbicazione.Dispose() mi va ovviamente in errore.

Try

Dim Area AsString = IIf(Label1.Text = "Scaffale", "1","2")

Dim fUbicazione AsNewUbicazione(Area, ComboScaffale.Text, ComboRipiano.Text)

fUbicazione.ShowDialog()

fUbicazione.Dispose()

Catch Exp AsException

' gestione errore

MsgBox(Exp.Message, MsgBoxStyle.Critical)

EndTry

Nella form  fUbicazione verifico che il Treview TVStrumenti sia popolato. Se è vuoto mi avverte con un messaggio e chiude la Form

PublicSubNew(ByVal Area AsString, ByVal NumArmadio_Scaffale AsString, ByVal NumRipiano AsString)

InitializeComponent()

TVStrumenti.Nodes.Clear()

' popola il TVStrumenti

PopolaTVStrumenti("SELECT Strumenti.ID,…….

If TVStrumenti.Nodes.Count = 0 Then

MsgBox("Nessuno Strumento presente in Magazzino!", MsgBoxStyle.Exclamation)

Close()

Else……..

fUbicazione.Dispose()

mi appare un errore che di dice a ragione che l’oggetto è già chiuso.

Come posso impostare la cosa ed ovviare a questo errrore? Grazie