Mobile

Dim a As New ColorDialog<br />
        If a.ShowDialog = Windows.Forms.DialogResult.OK Then<br />
            Dim STR As String = RGB2HTMLColor(a.Color.R, a.Color.G, a.Color.B)<br />
endif

Private Function RGB2HTMLColor(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As String<br />
<br />
        Dim HexR, HexB, HexG As Object<br />
        Dim sTemp As String<br />
<br />
        'R<br />
        HexR = Hex(R)<br />
        If Len(HexR) < 2 Then HexR = "0" & HexR<br />
<br />
        'Get Green Hex<br />
        HexG = Hex(G)<br />
        If Len(HexG) < 2 Then HexG = "0" & HexG<br />
<br />
        HexB = Hex(B)<br />
        If Len(HexB) < 2 Then HexB = "0" & HexB<br />
<br />
        RGB2HTMLColor = "#" & HexR & HexG & HexB<br />
    End Function<br />

dim a as color<br />
Dim ArgbComp As String() = Microsoft.VisualBasic.Split(HEXCOL2RGB("#000000"), ",") '#000000 is sample<br />
       a.BackColor = Color.FromArgb(ArgbComp(0), ArgbComp(1), ArgbComp(2), ArgbComp(3))

<br />
 Private Function HEXCOL2RGB(ByVal HexColor As String) As String<br />
<br />
            Dim Red As String<br />
        Dim Green As String<br />
        Dim Blue As String<br />
<br />
        Red = Val("&H" & HexColor.Substring(1, 2))<br />
        'The red value is now the long version of "00"<br />
<br />
        Green = Val("&H" & HexColor.Substring(3, 2))<br />
        'The red value is now the long version of "FF"<br />
<br />
        Blue = Val("&H" & HexColor.Substring(5, 2))<br />
        'The red value is now the long version of "1F"<br />
<br />
<br />
        HEXCOL2RGB = "255," & CInt(Red) & "," & CInt(Green) & "," & CInt(Blue)<br />
<br />
        Return HEXCOL2RGB<br />
<br />
    End Function