[اليوم السابع]

(21-03-21, 02:52 AM)3booody كتب :

كود :

Dim St As String = "Form2"
       For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
           If Not Application.OpenForms(i).Text = St Then ' Text او Name
               Application.OpenForms(i).Close()
           End If
       Next

طول عمرك واقف بجانبنا يا كبير