VTW Color Dialog Picker

Script

Sub BtnColorsClick(Sender)

        If ColorDialog1.Execute then

                temp = ColorDialog1.Color

                red = temp Mod &H100

                temp = temp \ &H100

                green = temp Mod &H100

                temp = temp \ &H100

                blue = temp Mod &H100

                rvb.Text = red & " " & green & " " & blue

                rvb01.Text = red/255 & " " & green/255 & " " & blue/255

                hexColor.Text = Hex(red) & Hex(green) & Hex(blue)

                'MsgBox( "red: " & red & " green: " & green & " blue: " & blue )

                Panel1.Color = ColorDialog1.Color
        End if

End sub

VTW User Interface