Sub ColorsApp() With ActivePalette.Color (1) MsgBox "You are using Corel PHOTO-PAINT " & .Application.Version End WithEnd Sub