Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Option Explicit
 
Private Sub web_dictionary_BeforeNavigate2(ByVal pDisp As Object, URL As _
  Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, _
  Headers As Variant, Cancel As Boolean)
  web_dictionary.Silent = True
End Sub
 
Private Sub Form_Activate()
    web_dictionary.Navigate "http://de.pons.com"
    web_dictionary.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, 1#  '0.75%
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Private Sub Command1_Click()
    Dim n As Variant
    Dim m As Long
 
    m = 75
 
    WebBrowser1.ExecWB 63, OLECMDEXECOPT_PROMPTUSER, CVar(m), n
 
    MsgBox n
End Sub

Private Sub Form_Activate()
    Dim n As Variant
    Dim m As Long
 
    m = 75
 
    web_dictionary.Navigate "http://de.pons.com/%C3%BCbersetzung?q=" & vokabel _
      & "&l=deen&in=&lf=en"
 
    Do
        DoEvents
    Loop Until web_dictionary.Busy = False
 
    web_dictionary.ExecWB 63, OLECMDEXECOPT_PROMPTUSER, CVar(m), n  
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!