Here is an example code.. Source code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Dim myimage As Resources = ExamplePng Public Sub Form_Load() picTemp.Picture = myimage picTemp.Height = picTemp.Image.getHeight(Null) picTemp.Width = picTemp.Image.getWidth(Null) picCanvas.PaintPicture(picTemp.Image, 5, 5) End Sub Public Sub cmdMove_Click() picCanvas.Cls picCanvas.PaintPicture(picTemp.Image, 80, 5) End Sub So, instead of clearing picCanvas to move the painted image (ExamplePng/myimage...