Как только элемент label появится, он должен начать движение со скоростью 1 пиксель за 1 миллисекунду в сторону нижнего угла, при

[Sinner_777]

(c#)Как только элемент label появится, он должен начать движение со скоростью 1 пиксель за 1 миллисекунду в сторону нижнего угла, при том при столкновении label с границами формы,(форма 500; 250) он должен отклонятся и продолжать движения в противоположную сторону, меняя цвет в соответствии с цветами радуги=) выручайти=) Это осталась концовка от задания, это вот не выходит сделать=) Кто чем поможет буду признателен=)

[Aleksander550]

У меня была программа прикол "летающий пуск" на делфи, алгоритмы похожи

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Width:=95;//Установить ширину окна
Height:=30;//Установить высоту
Left:=-100;//Убрать окно за левую границу экрана
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
h:THandle;
begin
Visible:=true; //Сделать окно видимым
//Установить верхнюю позицию окна в левый нижний угол экрана
top:=Screen.Height;
Left:=1;
//Создается пустой указатель h, который будет использоваться для задержки
h:=CreateEvent(nil, true,false, ' e t ' ) ;
//Сейчас будем поднимать кнопку
//От 1 до 80 выполнять действия от begin до end
for i:=1 to 80 do
begin
//Увеличить значение верхней позиции окна .с кнопкой
Top:=Screen.Height-Height-i*5;
Repaint; //Перерисовать окно
WaitForSingleObject(h,15);//Задержка в 5 миллисекунд(можно заменить на Sleep())
end;
//Дальше идет опускание кнопки. Алгоритм тот же,
//просто выполнение идет в обратном порядке
for i:=80 downto 1 do
begin
Top:=Screen. Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15) ;
end;
Closehandle(h); //Уничтожается указатель h
Visible:=false; //Прячется окно,
end;

end.

код взят из книги Флёнова