Private Type ANIMATIONINFO
         cbSize As Long
         iMinAnimate As Long
      End Type

Private Declare Function SystemParametersInfo _
   Lib "User32" Alias "SystemParametersInfoA" ( _
   ByVal uiAction As Long, _
   ByVal uiParam As Long, _
   ByRef pvParam As ANIMATIONINFO, _
   ByVal fWinIni As Long) As Long

Private Sub Form_Load()
Dim a_info As ANIMATIONINFO, a As Long
a = SystemParametersInfo(SPI_GETANIMATION,  0 , a_info,  0 )
End Sub

Const SPI_GETANIMATION =  72 
Const SPI_SETANIMATION =  73 
Public iMetrics As Long

Private Type ANIMATIONINFO
         cbSize As Long
         iMinAnimate As Long
      End Type

Private Declare Function SystemParametersInfo _
   Lib "User32" Alias "SystemParametersInfoA" ( _
   ByVal uiAction As Long, _
   ByVal uiParam As Long, _
   ByRef pvParam As ANIMATIONINFO, _
   ByVal fWinIni As Long) As Long

Private Sub Form_Load()
Dim a_info As ANIMATIONINFO, a As Long
If CurrentProject.BaseConnectionString = "" Then
    DoCmd.RunMacro "db_connect"
End If
a_info.cbSize = Len(a_info)
a = SystemParametersInfo(SPI_GETANIMATION, a_info.cbSize, a_info,  0 )
iMetrics = a_info.iMinAnimate
a_info.iMinAnimate =  0 
a = SystemParametersInfo(SPI_SETANIMATION, a_info.cbSize, a_info,  0 )
End Sub

Private Sub Form_Close()
Dim a_info As ANIMATIONINFO, a As Long
a_info.cbSize = Len(a_info)
a_info.iMinAnimate = iMetrics
SystemParametersInfo SPI_SETANIMATION, a_info.cbSize, a_info,  0 
End Sub