Per ora ho ripetutu il codice per tutti i pulsanti, e funziona benissimo, ora vorrei un altra cosa fondamentale,

dato che i form non li chiudo per un fattore di velocita',
vorrei che ripremendo un pulsante di un form gia aperto mi riprendesse il Fuoco su quel Form in maniera che ritorni in primo piano, come devo fare, ecco il mio codice:

<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
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Articoli" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Articoli()
Form.MdiParent = Me
Form.Show()
End If


Case 1
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Clienti" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Clienti()
Form.MdiParent = Me
Form.Show()
End If


Case 2
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Fornitori" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Fornitori()
Form.MdiParent = Me
Form.Show()
End If


Case 3
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Trasporti" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Trasporti()
Form.MdiParent = Me
Form.Show()
End If


Case 4
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Fatture" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Fatture()
Form.MdiParent = Me
Form.Show()
End If


Case 5
'calcolatrice


Case 6
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Browser" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Browser()
Form.MdiParent = Me
Form.Show()
End If


Case 7
Dim searchForm As New Form()
Dim Result As Boolean
Result = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "Impostazioni" Then
Result = True
Exit For
End If
Next
If Not Result Then
Dim Form As New Impostazioni()
Form.MdiParent = Me
Form.Show()
End If

End Select

End Sub
</code>

Scusa, ma come si fa per richiamare la calcolatrice di windows???

Ma su quali manuali stai studiando???

Ho anche io quel manuale ma non approfondisce nulla, e' una guida di base, per utilizzare i DataGrid() e il CrYstalReport in maniera pesante e' un problema, io non so come utilizzare il CrystalReport per nulla e non so dove guardare, la guida di visual studio non da una spiegazione a questo!!!