LISTING 1a:
This small VB program draws randomly colored lines all over the application window.

Option Explicit
Sub Form_Load ()
Randomize 'Init random number generator
DrawWidth = 2 'Set line width to 2
End Sub

Sub Timer1_Timer ()
Dim R, G, B, X2, Y2

'Create random RGB colors
R = 255 * Rnd
G = 255 * Rnd
B = 255 * Rnd

'Set end point of line to random spot on form
X2 = Int(DemoForm.Width * Rnd + 1)
Y2 = Int(DemoForm.Height * Rnd + 1)
Line -(X2, Y2), RGB(R, G, B)
End Sub

LISTING 1b:
This small Delphi program has almost a one-for-one correspondence to the VB program (left).

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize; \{Init random number generator\}
Canvas.Pen.Width:= 2; \{Set drawing width to 2\}
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
R, G, B, X2, Y2: Integer;
begin
\{Create random RGB colors\}
R:= Random (256);
G:= Random (256);
B:= Random (256);
Canvas.Pen.Color:= RGB (R, G, B);
\{Set end point of line to random spot on form\}
X2:= Random (ClientWidth);
Y2:= Random (ClientHeight);
Canvas.LineTo (X2, Y2);
end;