Did you know that when you are in a specific control you can call it by typing word me rather than the name of this control. This amazing little option can really speedup your coding so try to use it.
For code below in TextArea Sub SelChange()
1 2 3 4 5 6 7 | Dim White, Black as Color White = RGB(255,255,255) Black = RGB(0,0,0) if TextArea1.SelTextColor = White then TextArea1.SelTextColor = Black end if |
you can write
1 2 3 4 5 6 7 | Dim White, Black as Color White = RGB(255,255,255) Black = RGB(0,0,0) if me.SelTextColor = White then me.SelTextColor = Black end if |