Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Try
If Not mImageList Is Nothing Then
e.Graphics.TranslateTransform(AutoScrollPosition.X, AutoScrollPosition.Y)
e.Graphics.MultiplyTransform(Transform)
For i As Integer = 0 To mImageList.Count - 1
e.Graphics.DrawImage(CType(mImageList.Item(i), Image), 0, 0)
Next
End If
Catch ex As Exception
Windows.Forms.MessageBox.Show(ex.ToString)
End Try
End Sub
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial