ブール変数の値を変更する必要があります。フォームが動いている場合は MyVariable を False に、フォームが動いていない場合は MyVariable を True にします。
私はこれを試しましたが、アプリの境界線をクリックしてアプリを移動できますが、クライアントエリアをクリックした場合にのみ影響するため、このコードは期待どおりに機能しません:
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
Timer_Flag = False
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
Timer_Flag = True
End Sub
また、move イベントと locationchanged を試してみましたが、フォームが動いているかどうかを検出する方法がわかりません。