Sub Button1_Click
Dim can As Canvas, img As Image
can.Initialize("")
img.Initialize(File.Dirapp, "original.png")
Dim mag As Int = 20
can.SetSize(img.Width*mag, img.Height*mag)
can.DrawImage(img, 0,0,img.Width*mag, img.Width*mag)
MainForm.RootPane.AddNode(can,200,100,can.Width,can.Height)
End Sub