CommonControls (Replacement of the MS common controls)

[Nouyana]

Got an error today in the old working code. VBCCR 1.7.0.102

Run-time error '5'
Invalid procedure call or argument.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If Me.WindowState <> vbMinimized Then
      frmResize.SaveFinalPosition
   End If
   Select Case UnloadMode
   Case vbAppWindows, vbAppTaskManager
      Call EndOfProgram(False)
   Case Else
      Me.StatusBar1.Panels(2).Text = "Compacting database..." ' ERROR HERE
      Call EndOfProgram(True)
   End Select
   Set SysTray = Nothing
End Sub