Dim Canvas1 As Canvas
Canvas1.Initialize(Panel1) ' <---
Dim x1,y1 As Int
Dim Text As String
Text="Some Thing Write Here"
x1=10
y1=10
Dim tf As Typeface
tf.CreateNew(Typeface.DEFAULT, Typeface.STYLE_ITALIC)
Canvas1.DrawText(Text, x1, y1, tf, 16, Colors.Black, "LEFT")