_vfp.EditorOptions='LQTk' o=CreateObject('form1') o.Show(1) Define Class form1 As Form Height = 154 Width = 267 Add Object edit1 As EditBox With ; Anchor = 240, ; Height = 53, ; Left = 12, ; Top = 12, ; Width = 240, ; EnableHyperlinks = .T., ; ForeColor = Rgb(255,0,0), ; Value = "Click here: http://www.welkin.com.hk (EnableHyperlinks=.T. -> RED can't be shown)" Add Object edit2 As EditBox With ; Anchor = 240, ; Height = 53, ; Left = 12, ; Top = 84, ; Width = 240, ; ForeColor = Rgb(255,0,0), ; Value = "Click here: http://www.welkin.com.hk (On-Mouse-Enter/Leave Programmed)" Procedure edit2.MouseLeave Lparameters nButton, nShift, nXCoord, nYCoord This.EnableHyperlinks=.F. Procedure edit2.MouseEnter Lparameters nButton, nShift, nXCoord, nYCoord This.EnableHyperlinks=.T. EndDefine>When EnableHyperlinks is true in a textbox, the SelectedBackcolor becomes always black. Anybody knows how to set it to a specific color?