Blogda yayınlayabilirmiyim.. :) Hayallerim ve Kendim.

Private Declare Function GetCursorPos Lib "user32" As Long Private Type POINTAPI X As Long Y As Long End Type Dim simdikikordinat Private Sub Timer1_Timer Dim kordinat As POINTAPI GetCursorPos kordinat If simdikikordinat = kordinat. X & kordinat. Y Then MsgBox "Farede kıpırtı yok" End If If birkerecalisir <> 1 Then simdikikordinat = kordinat. X & kordinat. Y birkerecalisir = 1 End If End Sub belki lazım olur birine :D