[asemshahen5]

PHP كود :

   Dim f As New Form()
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        f.TopLevel = False
        f.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        f.Size = New System.Drawing.Size(200, 150)
        f.Location = New System.Drawing.Point(20, 20)
        f.WindowState = FormWindowState.Normal
        f.Visible = False
        Panel1.Controls.Add(f)
        If f.Visible = False Then f.Visible = True Else f.Visible = False
    End Sub