Private Function StyleSubMenu(ByVal xm As Long)
  Dim m As Long, i As Long
 
  For i = 0 To GetMenuItemCount(xm)
    m = GetMenuItemID(xm, i)
    If m = -1 Then
      m = GetSubMenu(xm, i)
      If m > 0 Then
        ModifyMenu xm, i, GetMenuState(xm, m, 0) Or MF_OWNERDRAW, m, _
          GetMenuText(xm, m)
        StyleSubMenu m
      End If
    ElseIf m > 0 Then
      ModifyMenu xm, m, GetMenuState(xm, m, 0) Or MF_OWNERDRAW, m, GetMenuText( _
        xm, m)
    End If
  Next i
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de