Option Strict Off
 
Public Class Form1
 
	Private Sub Browser_DocumentCompleted(ByVal sender As System.Object, ByVal e _
  As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  Browser.DocumentCompleted
		Browser.Document.AttachEventHandler("onselectstart", AddressOf _
Document_OnSelectStart)
	End Sub
 
 
	Private Sub Document_OnSelectStart(ByVal sender As Object, ByVal e As _
  EventArgs)
		Dim htmlEventObj As Object = Browser.Document.Window.DomWindow.event
		htmlEventObj.returnValue = False
	End Sub
 
End Class

Option Strict On
 
Public Class Form1
 
	Private Sub Browser_DocumentCompleted(ByVal sender As System.Object, ByVal e _
  As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  Browser.DocumentCompleted
		Browser.Document.AttachEventHandler("onselectstart", AddressOf _
Document_OnSelectStart)
	End Sub
 
 
	Private Sub Document_OnSelectStart(ByVal sender As Object, ByVal e As _
  EventArgs)
		Dim win As mshtml.IHTMLWindow2 = CType(Browser.Document.Window.DomWindow, _
mshtml.IHTMLWindow2)
		win.event.returnValue = False
	End Sub
 
End Class