
Public Sub btnZoomIn_Click()
  GetView().Zoom = Round(GetView().Zoom * 1.25, -2)
End

Public Sub btnZoomOut_Click()
  GetView().Zoom = Round(GetView().Zoom / 1.25, -2)
End

Public Sub btnZoomNormal_Click()
  GetView().Zoom = 1
End


Public Sub ButtonPlus_Click()
'-- WebViewPreview.Zoom = Round(WebViewPreview.Zoom * 1.2, -2)
    WebViewPreview.Zoom = Round(WebViewPreview.Zoom * 2 ^ (1 / 4), -2)    
End

Public Sub ButtonMinus_Click()
'-- WebViewPreview.Zoom = Round(WebViewPreview.Zoom / 1.2, -2)
    WebViewPreview.Zoom = Round(WebViewPreview.Zoom * 2 ^ (-1 / 4), -2) 
End

Public Sub ButtonStandard_Click()
    WebViewPreview.Zoom = 1
End

--------------------------------------------------------------------------------

Public Sub ButtonDown_MouseDown()

    Timer1.Delay = 70
    Timer1.Start()
    bFlagButton = "Down"

End

Public Sub ButtonUp_MouseDown()

    Timer1.Delay = 70
    Timer1.Start()
    bFlagButton = "Up"

End

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub ButtonUp_MouseUp()
    Timer1.Stop()
End

Public Sub ButtonDown_MouseUp()
    Timer1.Stop()
End

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Sub Timer1_Timer()

    Select Case bFlagButton
      Case "Down"
           ButtonDown_Click()
      Case "Up"
           ButtonUp_Click()
    End Select

End

Alternative:
------------

Überlegung, die beiden (Zoom-)Button in eine Gruppe zu legen und dann auswerten, welcher Button als letzter gedrückt wurde?
Nachlesen unter Eigenschaften .Tag und .Group sowie Last.

● Ein Timer-Steuerelement auf die Form ziehen
● Eine Variable sPlusMinus als Diskriminante anlegen
● Die Tag-Eigenschaft bekommt je Button ein besonderes Merkmal (unique) wie `p` oder `m`  (plus oder minus) und
● die Group-Eigenschaft je involviertem Button wird auf ZoomPM gesetzt; es ginge auch ZoomRepeat

Public sPlusMinus As String

PUBLIC SUB ZoomPM_MouseDown()
    sDirection =  Last.Tag
    Timer1.Delay = 70
    Timer1.Start()
End

Public Sub ZoomPM_MouseUp()
    Timer1.Stop()
End


Public Sub Timer1_Timer()

    Select Case sPlusMinus
      Case "plus"
           ButtonPlus_Click()
      Case "minus"
           ButtonMinus_Click()
    End Select

End