ongke0711 > 6 Giờ trước
Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = acLeftButton) Then
SendKeys "{Up}"
SendKeys "{Down}"
DoCmd.RunCommand acCmdDocMove
Screen.MousePointer = 0
End If
End Sub
![[Hình: 55509942405_58c8776b58_c.jpg]](https://live.staticflickr.com/65535/55509942405_58c8776b58_c.jpg)