Non funziona mi si aprono piu' Form con piu' click............

pero' il codice non mi da errore.

Per quanto riguarda le foto del mio ambiente di sviluppo, le proprieta' si vedono tutte, perche ho fatto 2 foto(1/2) per il form Madre,

1 con scroll delle proprieta' SU
ed
1 con scroll GIU',

ora pure una 3^ con le proprieta' della ToolBar() che ho usato nel programma, dai un occhiata a tutte e tre, forse tu riesci a trovare una soluzione.

http://race1.interfree.it/111.jpg
http://race1.interfree.it/222.jpg
http://race1.interfree.it/333.jpg

Ti ringrazio in anticipo......!!!!

Funziona, dopo il primo Form non se ne apre nessun altro,

ma pero' non se ne apre nessun altro neppure dopo che ho chiuso tutti i Form..........

Ti invio il mio codice che attiva i form, il tuo codice lo ho inserito solo nel primo bottone.........:

Funziona benissimo, solo che appena chiudo il Form non mi si apre mai piu'..........

<code>
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
If Not Me.ActiveMdiChild Is Nothing Then Exit Sub
Dim Form As New Magazzino()
Me.ActivateMdiChild(Form)
Form.MdiParent = Me
Form.Show()
Case 1
Dim Form As New Clienti()
Form.MdiParent = Me
Form.show()
Case 2
Dim Form As New Fornitori()
Form.MdiParent = Me
Form.show()
Case 3
Dim Form As New Trasporti()
Form.MdiParent = Me
Form.show()
Case 4
Dim Form As New Ordini()
Form.MdiParent = Me
Form.show()
End Select

End Sub
</code>

io farei così..

Dim frm as Form
For Each frm in Forms
If frm.Name = "nome del form da aprire" Then
frm.SetFocus
Exit For
Else
Dim x as New Form_Da_Aprire
x.Show
Exit For
End if
Next

Ciao..


renzo