Private Function CoolbarRealWidth() As Long
 
  Dim mOUT As Long
  Dim i As Integer
 
  mOUT = 0
 
  For i = 1 To myCoolbar.ButtonCount
    With myCoolbar.Buttons(i)
      If .Visible = True Then
        mOUT = mOUT + .Width
      End If
    End With
  Next i
 
  CoolbarRealWidth = mOUT
 
End Function

Martin Domian

CioTec Ltd
F37 Waterfront Studios 1 Dock Road
London E16 1AH United Kingdom

Tel.: +44 7810 255482
Mail: MDomian@ciotec.de
URL: http://www.ciotec.de

UTR 64446 15259 (Unique Taxpayer Reference) Company No 10914665

Beitrag wurde zuletzt am 28.12.15 um 16:25:11 editiert.