Hi
I try this code...
Sub WriteDouble(ByVal x As Double, ByVal y As Double, _
ByVal Width As Double, ByVal Height As Double, ByVal sColor As String)
Dim iC, iM, iY, iK As Double
Dim MyArray() As String = sColor.Split(",")
iC = System.Convert.ToDouble(MyArray(0))
iM = CDbl(MyArray(1))
iY =...