VB6:
Código: Seleccionar todo
Dim X As Integer
For X = 5850 To 400 Step -1
Form1.Height = X
Next X
Código: Seleccionar todo
var
X : Integer;
begin
For X := Form1.Height to 533 do
Form1.Height := X;
end;
Saludos.
Código: Seleccionar todo
Dim X As Integer
For X = 5850 To 400 Step -1
Form1.Height = X
Next X
Código: Seleccionar todo
var
X : Integer;
begin
For X := Form1.Height to 533 do
Form1.Height := X;
end;
Código: Seleccionar todo
var
X : Integer;
begin
For X := Form1.Height downto 533 do
Form1.Height := X;
end;