DEFINE CLASS lbllink AS lbl

  AutoSize     = .T.
  BackStyle    = 0
  Caption      = "Email Me"
  MousePointer = 99
  MouseIcon    = "h_point.cur"
  ForeColor    = RGB(0,0,255)
  cUrl         = "someone@somewhere.com"
  Name         = "lbllink"

  PROCEDURE Click
    This.Navigate(This.cUrl)
  ENDPROC

  PROCEDURE Navigate
  LPARAMETERS cUrl

    DECLARE INTEGER GetDesktopWindow IN WIN32API
    DECLARE INTEGER ShellExecute IN SHELL32 ;
	INTEGER, STRING, STRING, STRING, STRING, INTEGER

    hWnd = GetDesktopWindow()

    ShellExecute( hWnd, 'open', cUrl, '', '.', 5)

  ENDPROC

ENDDEFINE