...
    With ForwardTransform(m)
      If TypeName(c) = "Coolbar" Then
        If c.ToolbarAlignment = cbAlignHorizontal Then
          c.Move .Left, .Top, .Width, c.Height
        Else
          c.Move .Left, .Top, c.Width, .Height
        End If
      Else
        c.Move .Left, .Top, .Width, .Height
      End If
    End With
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de