A simple API statement enables changing menu font color: Private Declare function setsyscolors lib "user32" (LPSYSCOLOR As Long, LPSYSCOLOR As Long) As longprivate sub flow_load ()
Setsyscolors 1, 7, VBRED 'Settings Menu Fonts Red (optional & H0 ----> & HFFFF total 16777216 Colors!) End Sub
Private Sub Form_Unload (Cancel AS Integer)
Setsyscolors 1, 7, VBBLACK 'restoring menu font end sub
