Bug? Canvas draw line and textTransparent

    Dim Can As Canvas
    Can.Initialize(PanelMain)
    Can.DrawColor(Colors.White)
    Can.DrawLine(10dip,10dip,100dip,10dip,Colors.Transparent,2dip)
    Can.DrawLine(10dip,25dip,100dip,25dip,Colors.ARGB(0,0,0,0),2dip)
    Can.DrawLine(10dip,40dip,100dip,40dip,Colors.ARGB(0,0,0,1),2dip)
    Can.DrawLine(10dip,55dip,100dip,55dip,Colors.Black,2dip)
    Can.DrawText("Transparent",110dip, 10dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Black Transparent",110dip, 25dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Transparent",110dip, 40dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Not Transparent",110dip, 55dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   Dim cvs As Canvas
   cvs.Initialize(Panel1)
   cvs.DrawColor(Colors.Red)
   cvs.DrawLine(0, 0, 100dip, 100dip, Colors.Transparent, 5dip)
   cvs.DrawText("XXX", 50dip, 50dip, Typeface.DEFAULT_BOLD, 40, Colors.Transparent, "CENTER")
   Panel1.Invalidate
End Sub

    Dim Can As Canvas
    Can.Initialize(PanelMain)
    Can.DrawColor(Colors.White)
    Can.DrawLine(10dip,10dip,100dip,10dip,Colors.Transparent,2dip)
    Can.DrawLine(10dip,25dip,100dip,25dip,Colors.ARGB(0,0,0,0),2dip)
    Can.DrawLine(10dip,40dip,100dip,40dip,Colors.ARGB(0,0,0,255),2dip)
    Can.DrawLine(10dip,55dip,100dip,55dip,Colors.Black,2dip)
    Can.DrawText("Transparent",110dip, 10dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Black Transparent",110dip, 25dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Transparent",110dip, 40dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawText("Not Transparent",110dip, 55dip,Typeface.DEFAULT,12,Colors.Magenta,"LEFT")
    Can.DrawLine(0, 0, 100dip, 100dip, Colors.Transparent, 5dip)
    Can.DrawText("XXX", 50dip, 50dip, Typeface.DEFAULT_BOLD, 40, Colors.Transparent, "CENTER")