Dim a, bRem begina = GetLastClick()TracePrint aIf a = 32769 Then Do KeyPress "M", 1 b = GetLastClick() If b <> 0 Then Goto begin End If LoopEnd IfGoto begin