[ابو ليلى]

جرب هذا الكود

PHP كود :

If Application.OpenForms().OfType(Of Form2).Any Then
  MessageBox.Show("Opened")
End If 


او هذه الدالة

PHP كود :

   Public Function isOpened(ByVal frm As Form) As Boolean
        Dim frmCol As New FormCollection()
        frmCol = Application.OpenForms
        Dim Cnt As Integer = 0

        For Each f As Form In frmCol
            If f.Name = frm.Name Then
                Cnt += 1
            End If
        Next

        If Cnt > 0 Then
            Return True
        Else
            Return False
        End If

    End Function 


او يمكنك نقل التركيز الى الفورم اذا كان مفتوحاً و احضاره الى الامام

PHP كود :

       Dim frm As New Form2
        Dim frmCollection = System.Windows.Forms.Application.OpenForms
        For i As Integer = 0 To frmCollection.Count - 1
            If frmCollection.Item(i).Name = frm.Name Then
                frmCollection.Item(i).Activate()
                Exit Sub
            End If
        Next i 


او يمكنك استخدام كود الاخ LoveVb