Private Sub ScreenSaverForm_MouseMove(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Me.MouseMove
        ' Legen Sie IsActive und MouseLocation nur beim ersten Aufruf des 
        ' Ereignisses fest.
        If Not isActive Then
            mouseLocation = MousePosition
            isActive = True
        Else
            ' Schließen, wenn die Maus seit dem ersten Aufruf wesentlich 
            ' verschoben wurde.
            If Math.Abs(MousePosition.X - mouseLocation.X) > 10 OrElse _
              Math.Abs(MousePosition.Y - mouseLocation.Y) > 10 Then
                Close()
            End If
        End If
 
    End Sub

    Private Sub ScreenSaverForm_KeyDown(ByVal sender As Object, ByVal e As _
      KeyEventArgs) Handles Me.KeyDown
        Close()
    End Sub
 
 
    Private Sub ScreenSaverForm_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Me.MouseDown
        Close()
    End Sub

<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class exWebBrowser
   Inherits System.Windows.Forms.WebBrowser
 
   Private oDoc As HtmlDocument
 
   Public Event DocumentMouseMove As HtmlElementEventHandler
   Public Event DocumentMouseUp As HtmlElementEventHandler
   Public Event DocumentMouseDown As HtmlElementEventHandler
 
   Private Sub exWebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e _
     As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
     Me.DocumentCompleted
      oDoc = Me.Document
      AddHandler oDoc.MouseDown, New HtmlElementEventHandler(AddressOf _
        oDocMouseDown)
      AddHandler oDoc.MouseMove, New HtmlElementEventHandler(AddressOf _
      oDocMouseMove)
      AddHandler oDoc.MouseUp, New HtmlElementEventHandler(AddressOf _
      oDocMouseUp)
   End Sub
 
   Private Sub oDocMouseDown(ByVal sender As Object, ByVal e As _
     HtmlElementEventArgs)
      RaiseEvent DocumentMouseDown(sender, e)
   End Sub
 
   Private Sub oDocMouseMove(ByVal sender As Object, ByVal e As _
     HtmlElementEventArgs)
      RaiseEvent DocumentMouseMove(sender, e)
   End Sub
 
   Private Sub oDocMouseUp(ByVal sender As Object, ByVal e As _
     HtmlElementEventArgs)
      RaiseEvent DocumentMouseUp(sender, e)
   End Sub
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control