>>> >>> Procedure command1.MouseUp &&(1) >>> Lparameters nButton, nShift, nXCoord, nYCoord >>> Thisform.label1.Caption = "MOUSE UP" >>> Thisform.timer1.Enabled = .F. >>> Endproc >>>>>
>> Procedure command1.MouseUp &&(2) >> Lparameters nButton, nShift, nXCoord, nYCoord >> Thisform.timer1.Enabled = .F. >> Thisform.label1.Caption = "MOUSE UP" >> Endproc >>>
>>> Thisform.label1.Caption = "MOUSE UP" * the timer event can to be called here ( with Autoyield = .T. ) >>> Thisform.timer1.Enabled = .F.