[alex]

Μιχάλη !!!
Μπορείς να αλλάξεις και background και χρώμα στο μενου

Option Explicit

Private Sub Form_Load()
    ApplyChanges
End Sub

Private Sub ApplyChanges()
    Dim LngNew As Long
    
    'Χρησιμοποίησε εικόνα με  FLAT TB (Toolbar1)
    LngNew = CreatePatternBrush(Picture1.Picture.Handle) 'Δημιουργεί το φόντο από μια Εικόνα Picture Handle
    ChangeTBBack Toolbar1, LngNew, enuTB_FLAT
    
    '΄Αλλαξε το Backcolor to STANDARD TB (Toolbar2)
    LngNew = CreateSolidBrush(RGB(240, 120, 120))        'Δημιουργεί το φόντο από ένα χρώμα (Long)
    ChangeTBBack Toolbar2, LngNew, enuTB_STANDARD
    
    'Screen Refresh για να δείτε τις αλλαγές
    InvalidateRect 0&, 0&, False
End Sub

Private Sub Toolbar1_Click()

End Sub

Αν γνωρίζει κάποιος με περισσότερη εμπειρία ας κάνει κάποια πρόταση.
Ελπίζω να πήρες κάποιες ιδέες.

Φιλικά/Αλέξανδρος