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