DEFINE CLASS labClass As Label
    BackStyle=0
    Caption="http://www.jn......e.com"
    ForeColor=RGB(0,0,255)
    FontUnderLine=.T.
    Height=20
    Left=100
    *MouseIcon="./images/hand-m.cur"
    MousePointer=99
    Name="Label1"
    ToolTipText="欢迎访问......公司"
    Visible=.T.
    Width=200
    
    PROCEDURE Init
        This.Left=50
        This.Top=_Screen.Height-75
    ENDPROC 
    
    PROCEDURE Click 
        *!* 声明ShellExecute函数
        DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
            INTEGER hwnd, ;
            STRING lpVerb, ;
            STRING lpFile, ;
            STRING lpParameters, ;
            STRING lpDirectory, ;
            LONG nShowCmd    
        
        lpFile="http://www.j......e.com/"         &&设定要打开的Internet站点
        =ShellExecute(0,"open",lpFile ,"","",3) &&以浏览器窗口最大化方式打开Internet站点
    ENDPROC                 
    
    PROCEDURE MouseEnter
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(255,0,0)   &&当鼠标移动时字体颜色成为红色
    ENDPROC 
    
    PROCEDURE MouseLeave
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(0,0,255)   &&当鼠标移动时字体颜色成为红色
    ENDPROC 
ENDDEFINE