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;