LOCAL oForm oForm = CREATEOBJECT("TForm") oForm.Show(1) * end of main DEFINE CLASS TForm As Form Width=500 Height=300 Autocenter=.T. Caption="Carets" ADD OBJECT cmd As CommandButton WITH; LEFT=10, Top=10, Width=80, Height=27 PROCEDURE Init THIS.declare PROCEDURE Destroy = DestroyCaret() PROCEDURE cmd.Click ThisForm.Test PROCEDURE Test = DestroyCaret() = CreateCaret(THIS.HWnd, 0, 30,4) = SetCaretPos(50,100) = ShowCaret(THIS.HWnd) PROTECTED PROCEDURE declare DECLARE INTEGER GetLastError IN kernel32 DECLARE INTEGER ShowCaret IN user32 INTEGER hWnd DECLARE INTEGER HideCaret IN user32 INTEGER hWnd DECLARE INTEGER DestroyCaret IN user32 DECLARE INTEGER GetCaretPos IN user32 STRING @lpPoint DECLARE INTEGER SetCaretPos IN user32 INTEGER X, INTEGER Y DECLARE INTEGER CreateCaret IN user32; INTEGER hWnd, INTEGER hBitmap,; INTEGER nWidth, INTEGER nHeight ENDDEFINE