ColorChooser

' Gambas class file

Public Sub Form_Open()

End

Public Sub btnpintar_Click()

If RadioButtonFondo.Value = True Then
  btnmuestra.Background = ColorChooser1.SelectedColor
Else
  btnmuestra.Foreground = ColorChooser1.SelectedColor

  Endif
End

Public Sub btnsalir_Click()

  Me.Close

End

ElegirColor-0.0.1.tar.gz