Можно ли из Commondialog showcolor получить цвет в RGB - VB

Формулировка задачи:

Привет всем Можно ли из Commondialog showcolor получить цвет в RGB только по отдельности а не слитно как он выдает или в шеснадцатиричной форме или есть ли свойства типа getblue, getred,getgreen.

Решение задачи: «Можно ли из Commondialog showcolor получить цвет в RGB»

textual
                            Листинг программы 
                        

                            Dim strcolor As String
 Dim red As String
 Dim blue As String
 Dim green As String
 CommonDialog1.ShowColor
 strcolor = Hex(CommonDialog1.Color)
 MsgBox strcolor
 red = Mid(strcolor, 5, 2)
 green = Mid(strcolor, 3, 2)
 blue = Left(strcolor, 2)
 MsgBox red & green & blue
                        