[kslawy]

كود :

Public Sub OpenForm(ByVal frm As Form)
        On Error Resume Next
        If frm.Visible = True Then
            frm.WindowState = FormWindowState.Normal
            frm.Activate()
        Else
            frm.Show()
        End If
    End Sub