HOWTO: Center an image that is larger than the Main Control

Below is a simple VB snippet to load an image that is larger than the LEAD control and have the center of that image in the center of the lead control while AutoScroll is true.
+------------------------------+
Private Sub Command1_Click() Dim l As Long
Dim t As Long
LEAD1.Visible = False LEAD1.Load "ImagePath", 0, 0, 1
'Calculate where to set the dst rect to have the center of the image in the center of the control.
'The top and left have to be negative to scroll into the image.
l = -((LEAD1.BitmapWidth / 2) - (LEAD1.ScaleWidth / 2))
t = -((LEAD1.BitmapHeight / 2) - (LEAD1.ScaleHeight / 2))
LEAD1.SetDstRect l, t, LEAD1.BitmapWidth, LEAD1.BitmapHeight
LEAD1.SetDstClipRect l, t, LEAD1.BitmapWidth, LEAD1.BitmapHeight
LEAD1.Visible = True
End Sub
+------------------------------+

In the .NET classes, you can accomplish this using the RasterImageViewer.SizeMode property.

This was previously published as 249LHQ.