Private Const SM_CXBORDER = 5
Private Const SM_CYBORDER = 6
 
Private Declare Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) _
  As Long
 
 
Public Sub AlignProgressBar(ByRef ctrStatus As Object, ByVal iPanel As Integer, _
  ByRef ctrProgress As Object)
Dim fCorX           As Single
Dim fCorY           As Single
 
  ' Statusbar manuell nach unten verschieben
  With ctrStatus
    If TypeOf .Container Is Form Then
      If .Container.WindowState <> vbMinimized Then
        Call .Move(0, .Container.ScaleHeight, .Container.ScaleWidth, .Height)
      End If
    End If
 
    ' Korrekturen ermitteln
    fCorX = Screen.TwipsPerPixelX * GetSystemMetrics(SM_CXBORDER) * 2.5
    fCorY = Screen.TwipsPerPixelY * GetSystemMetrics(SM_CYBORDER) * 2.5 + 1
 
    ' Progressbar positionieren
    If .Panels(iPanel).Width - 2 * fCorX > 0 Then
      Call ctrProgress.Move(.Panels(iPanel).Left + fCorX, .Top + fCorY, .Panels( _
        iPanel).Width - 2 * fCorX, .Height - 2 * fCorY)
    End If
  End With
 
End Sub