[3booody]

السلام عليكم ورحمة الله وبركاته
تفضل اخي

كود :

Public Class Form1
    Dim Frm As New Form
    Dim btn1 As New Button

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        With Frm
            .ShowIcon = False
            .Width = 385
            .Height = 166
            .Show()
        End With

        With btn1
            .Text = "OK"
            .Width = 108
            .Height = 23
            .TabIndex = 1
            .Location = New Point(259, 103)
        End With
        Frm.Controls.Add(btn1)
    End Sub

    Private Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Frm.Width = 533
        Frm.Height = 133
    End Sub

    

End Class