PUBLIC SUB Menu5_Click()

  Dialog.Title = "Choose a background color"
  Dialog.SelectColor
  ColorName = Module1.SetColorName(Dialog.Color)
  Form1.BackColor = Dialog.Color
  TextLabel1.BackColor = Dialog.Color
  TextLabel1.Text = " <b>BackGround Color Selected was</B> " & ColorName & "."

END