Dim MyDialog As New ColorDialog()
'Actualisez la couleur de boite de texte si l'utilisateur clique OK
If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
MsgBox(MyDialog.Color.B * 65536 + MyDialog.Color.G * 256 + MyDialog.Color.R) 'conversion en Long
End If