Private Declare Function SystemParametersInfo Lib "user32" Alias _
   "SystemParametersInfoA" _
   (ByVal uAction As Long, _
    ByVal uParam As Long, _
    ByRef lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
 
Private Const SPI_SETDRAGFULLWINDOWS = 37
 
Private Sub Form_Load()
   SystemParametersInfo SPI_SETDRAGFULLWINDOWS, True
End Sub