Swallow
Если уж так нравятся извращения, то создайте "пустую" кнопку, которая на OnCreate будет всем слоям устанавливать NullColor.
Но вообще-то цвет выделения сохраняется...
Не знаю как у Вас, у меня это работает:
Sub Selection()
Dim pMxApp As IMxApplication
Dim pSelectionEnv As ISelectionEnvironment
Dim pRgbColor As IRgbColor
Set pMxApp = Application
Set pSelectionEnv = pMxApp.SelectionEnvironment
Set pRgbColor = New RgbColor
pRgbColor.NullColor = True
Set pSelectionEnv.DefaultColor = pRgbColor
End Sub