Membuat prg hyperlink dgn vfp

Buat rekan2 yang membutuhkan, selamat mencoba..
buat dalam prg :

*!* dodol 2007
*!* contoh sederhana hyperlink pake label
LOCAL odForm as Form

odForm=CREATEOBJECT('dodolFORM')
odForm.Show(1)
RETURN

DEFINE CLASS dodolFORM as Form
autocenter=.t.
height=400
width=700
Caption="dodol 2007"

ADD OBJECT label1 as label WITH ;
Top = 10, ;
Left = 50, ;
Autosize=.t.,;
FontUnderline=.t.,;
ForeColor=RGB(0,0,255),;
MousePointer=15,;
Caption="www.d3mi-unsyiah.indonesianforum.net"

ADD OBJECT Hyperlink1 as Hyperlink WITH ;
Visible = .f.

ADD OBJECT keluar AS commandbutton WITH ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"

PROCEDURE keluar.Click
Thisform.release
ENDPROC

PROCEDURE label1.Click
ThisForm.Hyperlink1.NavigateTo(This.Caption)
ENDPROC

ENDDEFINE