حرکت فرم همراه با حرکت ماوس

[mojtabamalaekeh]

با عرض معذرت تا دیدم یه تایمر دیگه اضافه کردی برنامه رو بستم.
توجه کردی اگه با راست کلیک یا وسط کلیک «دوبار کلیک» کنی مشکل نداره.
مشکل مال وقتیه که با کلیک چپ «دوبار کلیک» می کنی و چون تو روال MouseDown میشه Button=1 تایمر غیر فعال میشه و باید هنگام نمایش فرم تایمر رو فعال کنی.

کد:

Private Sub ProcessMessages()
    Dim Message As Msg
    Do While Not Isnot
    WaitMessage
    If PeekMessage...
        Form1.Show
        '______________'
        Timer1 = True
        '______________'
    End If
        DoEvents
    Loop
End Sub