Private Sub Button1_Click
Dim cvs As Canvas
cvs.InitializePDF(xui.DefaultFolder, "1.pdf", 612, 792)
cvs.DrawCircle(100, 100, 50, xui.Color_Red, True, 0)
cvs.Refresh
cvs.Release
WebView1.LoadUrl(xui.FileUri(xui.DefaultFolder, "1.pdf")) 'show the saved pdf with WebView.
End Sub