......
If Dialog.SelectColor() Then Return
......
Public Sub Form_Open()
' Apre la finestra di dialogo dei colori:
If Dialog.SelectColor() Then Return
' Dopo aver scelto un colore, imposta
' il colore del Form con quel colore scelto:
Me.Background = Dialog.Color
End