All pastes #268888 Raw Edit

drachenblut

public text v1 · immutable
·published 2006-12-06 02:40 UTC
rendered paste body
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