e.form.controls("WebBrowser1").Address = Nothing
或者
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("winword")For Each p As System.Diagnostics.Process In ps
If p.MainWindowTitle = Nothing Then p.killNext