*!* dian s 2005 
*!* contoh sederhana hyperlink pake label
LOCAL odForm as Form

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

DEFINE CLASS dianFORM as Form
autocenter=.t.
height=400
width=700
Caption="DS 2005"

ADD OBJECT label1 as label WITH ;
Top = 10, ;
Left = 50, ;
Autosize=.t.,;
FontUnderline=.t.,;
ForeColor=RGB(0,0,255),;
MousePointer=15,;
Caption="www.mztolo.irenk.com"

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