Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim bc As BitmapCreator
bc.Initialize(ImageView1.Width, ImageView1.Height)
Dim path As BCPath
path.Initialize(0, bc.mHeight)
path.LineTo(0, 65%y)
AddBezier(path, 35%x, 50%y, 50%x, 85%y, 100%x, 85%y, 30)
path.LineTo(100%x, 100%y)
bc.DrawPath(path, 0xFF008EFF, True, 0)
bc.DrawLine(0, 100%y, 100%x, 100%y, 0xFF008EFF, 1dip)
bc.SetBitmapToImageView(bc.Bitmap, ImageView1)
End Sub