'Html Color Convert Copyright © By Piero Tofy 2003
Private Sub cmdesci_Click()
MsgBox "Http://www.pierotofy.too.it", , "Exit"
End
End Sub
Private Sub cmdscegli_Click()
'Il codice converte l'input del colore in codice esadecimale
'grazie alla funzione Visual Basic HEX()
comdl1.ShowColor
lblcolor.BackColor = comdl1.Color
txtcodice.Text = "#" + Hex(comdl1.Color)
End Sub