ノンタイトル領域をドラッグフォームVB

タイトルバーをドラッグすることなく、いかなる形でマウスの左ボタンとドラッグを押して、フォームの空白領域。

薄暗い MoveScreen として ブール
薄暗い MousX として 整数
薄暗いネズミのよう 整数
薄暗い CURRX として 整数
薄暗いカレーとして 整数

プライベート サブ Form_MouseDown（ボタンとして 整数、Shiftキーとして 整数、X として シングル、Y として シングル）
     もしボタン= 1  次に
        MoveScreen = 真
        MousX = X
        ネズミの = Y
     終了 の場合
End Subの

プライベート サブ Form_MouseMove（ボタンとして 整数、Shiftキーとして 整数、X として シングル、Y として シングル）
     もし MoveScreen 次に
        CURRX = Form1.Left - MousX + X
        カレー = Form1.Top -ネズミの+ Y
        Form1.Move CURRX、カレー
    最後 の場合
End Subの

プライベート サブ Form_MouseUp（ボタンとして 整数、Shiftキーとして 整数、X として シングル、Y として シングル）
    MoveScreen = Falseの
End Subの