For i = 0 To mybytes.Length - 1
If i Mod 2 = 0 Then
Dim Rect1 As B4XRect
Rect1.Initialize(lft, 10dip, (barwidth * mybytes(i))+lft, 80dip)
Canvas1.DrawRect(Rect1,xui.Color_Black,True,1)
' Canvas1.DrawRect(lft, 10dip, barwidth * mybytes(i), 80dip, Colors.Black, True, 0)
Else
Dim Rect2 As B4XRect
Rect2.Initialize(lft, 10dip, (barwidth * mybytes(i))+lft, 80dip)
Canvas1.DrawRect(Rect2,xui.Color_White,True,1)
' Canvas1.DrawRect(lft, 10dip, barwidth * mybytes(i), 80dip, fx.Colors.White, True, 0)
End If
lft = lft + (barwidth * mybytes(i))
Next