Zoom-In & Zoom-Out

[kedaman]

Without replacing it with a Imagebox you could use this code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim speed As Integer

    Select Case Chr(KeyCode)
        Case "-"
            speed = 10
        Case "+"
            speed = -10
        Case Else
            Exit Sub
    End Select
    
    With Picture1
        .Picture = .Image
        .PaintPicture Picture1, 0, 0, .ScaleWidth, .ScaleHeight, .ScaleWidth / speed, .ScaleHeight / speed, .ScaleWidth - .ScaleWidth / speed * 2, .ScaleHeight - .ScaleHeight / speed * 2
    End With
    
End Sub

justify speed for your needs