' Center the image.
Private Sub Form_Resize()
Dim to_x As Single
Dim to_y As Single
Dim wid As Single
Dim hgt As Single

    If picHidden.Picture = 0 Then Exit Sub
    
    Cls
    
    ' See if the image is too big to fit.
    wid = picHidden.ScaleWidth
    hgt = picHidden.ScaleHeight
    If wid > ScaleWidth Then
        hgt = hgt * ScaleWidth / wid
        wid = ScaleWidth
    End If
    If hgt > ScaleHeight Then
        wid = wid * ScaleHeight / hgt
        hgt = ScaleHeight
    End If

    ' See where we need to put the picture to center it.
    to_x = (ScaleWidth - wid) / 2
    to_y = (ScaleHeight - hgt) / 2

    ' Copy the picture centered on the form.
    Me.PaintPicture picHidden.Picture, _
        to_x, to_y, wid, hgt
End Sub