View Single Post
  #2  
Old 10-02-2010, 00:51
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Swap Foreground Color and Background Color

Give this a go:
Code:
Sub SwapForegroundBackground()
    Dim c As New Color
    
    c.CopyAssign Application.PaintColor
    Application.PaintColor.CopyAssign Application.PaperColor
    Application.PaperColor.CopyAssign c
End Sub
Best of Luck,

-Shelby
Reply With Quote