... SubPrivate Sub Form_ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Selecting = True SetCapture Me.hwnd Form_ MouseMove 0, Shift, X, YEnd SubPrivate Sub Form_ MouseMove(Button ... Hiệu ứng khi Click vào Form home Xuất xứ : www.pscode.com Binh khí sử dụng : KhôngĐoạn mã :Private Type POINTAPI X ... Integer, X As Single, Y As Single) If Selecting = False Then Exit Sub DrawEnd SubPrivate Sub Form_ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Selecting = False...