program kapatma

Private Sub Cmd1çıkış_Click() Do Until Form1.Height = 405 And Form1.Width = 1680 Form1.Height = Form1.Height - 1 Form1.Width = Form1.Width - 1 Loop Unload Me End Sub Private Sub Form_Load() Form1.Caption = \"Form Move\" Form1.Height = 0 Form1.Width = 1680 Timer1.Interval = 200 Timer1.Enabled =...