[سعود]

PHP كود :

Dim fid As Integer = 1
    Private Sub NewFormToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewFormToolStripMenuItem.Click
        Dim f As New Form
        f.ControlBox = False
        With f
            f.Text = "Form" & fid
            f.Size = New Size(111, 111)
            fid += 1
            f.MdiParent = Me
            f.Show()
        End With
    End Sub