Why are you initializing the canvas multiple times?
Initialize it once when the app starts and change Page1_Resize to:
Private Sub Page1_Resize(Width As Int, Height As Int)
cvsArrow.Resize(pnlCrono.Width, pnlCrono.Height)
CreateArrow(0)
End Sub
Don't resize it in other places.