VB Code:
Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
Dim doc As mshtml.HTMLDocument
doc = CType(AxWebBrowser1.Document, mshtml.HTMLDocument)
Dim iEvent As mshtml.HTMLDocumentEvents2_Event
iEvent = CType(doc, mshtml.HTMLDocumentEvents2_Event)
AddHandler iEvent.onclick, AddressOf ClickEventHandler
AddHandler iEvent.onmouseover, AddressOf MouseOverEventHandler
AddHandler iEvent.onmouseout, AddressOf MouseoutEventHandler
End Sub
VB Code:
Private Sub MouseoutEventHandler(ByVal e As mshtml.IHTMLEventObj)
Me.Timer2.Enabled = True
End Sub
Private Sub entform()
If Me.Opacity < 1.0 Then
Me.Opacity = 1.0
End If
Me.Timer2.Enabled = False
End Sub
Private Sub MouseOverEventHandler(ByVal e As mshtml.IHTMLEventObj)
entform()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Me.Opacity > 0.2 Then
Me.Opacity = Me.Opacity - 0.01
Else
Me.Timer2.Enabled = False
End If
End Sub