[kslawy]

PHP كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim isOpoen = From f As Form In Application.OpenForms _
                      Select f Where f.Name = "Form2"

        If isOpoen.Count > 0 Then
            MsgBox("النموذج مفتوح")
        Else
            MsgBox("النموذج ليس مفتوحاً")
        End If
    End Sub