منع فورم من الفتح اكثر من مرة

me.close      وليست  me.hide

form2.show

اكتب الكود فى المفتاح الخاص بظهور الشاشة التانى

من الواضح أنك وضعت في حدث الضغط على الزر تعليمات انشاء Form جديد ومن ثم عرض هذا Form كما يلي:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Fr As Form2
        Fr = New Form2()
        Fr.Show()
    End Sub

وكل مرة تضغط على الزر ينشئ Form جديد ويظهره

ولحل هذه المشكلة يجب انشاء كائن عام من الـ Form ضمن الصف الرئيسي و في حدث الضغط على الزر نضع فقط تعليمة اظهار الـ Form كما يلي:

Public Class Form1

    Dim Fr1 As Form2 = New Form2()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (Fr1.IsDisposed) Then
            Fr1 = New Form2
        End If
        Fr1.Show()
    End Sub
End Class

مرفق مثال يحوي الطريقتين معاً

WindowsApplication1.rar