Public Class frmCopyData
    Inherits System.Windows.Forms.Form
 
    Public Declare Function EnumWindows Lib "user32.dll" ( _
        ByVal lpEnumFunc As EnumWindowsDele, _
        ByRef lParam As Int32) As Int32
 
    Public Delegate Function EnumWindowsDele(ByVal hwnd%, ByRef lParam%) As _
      Boolean
 
    Public Declare Function GetWindowText Lib "user32.dll" Alias _
      "GetWindowTextA" ( _
        ByVal hwnd As Int32, _
        ByVal lpString As System.Text.StringBuilder, _
        ByVal cch As Int32) As Int32
 
    Public Declare Function SetProp Lib "user32.dll" Alias "SetPropA" ( _
        ByVal hwnd As Int32, _
        ByVal lpString As String, _
        ByVal hData As Int32) As Int32
 
    Public Declare Function GetProp Lib "user32.dll" Alias "GetPropA" ( _
      ByVal hwnd As Int32, _
      ByVal lpString As String) As Int32
 
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
      ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal _
      lParam As Integer) As Int32
 
    Private Const WM_APP As Int32 = &H8000
 
    Private Const ID$ = "{D7D5B9C8-47B9-4248-811B-9C15FFC9295F}"
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        '
        'frmCopyData
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Name = "frmCopyData"
        Me.ShowInTaskbar = False
        Me.Text = "frmCopyData"
 
    End Sub
 
#End Region
 
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        SetProp(Me.Handle.ToInt32, Me.ID, 1)
        Dim hWnd%
        Dim lParam% = 0
        Dim dele As New EnumWindowsDele(AddressOf EnumWindowsProc)
        If Diagnostics.Process.GetProcessesByName( _
          Process.GetCurrentProcess.ProcessName).Length > 1 Then
            EnumWindows(dele, lParam)
            If lParam <> 0 Then
                MsgBox("Sende Nachricht an " & lParam)
                SendMessage(lParam, WM_APP, 0, 0)
            End If
 
        End If
 
    End Sub
 
 
    Private Function EnumWindowsProc(ByVal hwnd%, ByRef lParam%) As Boolean
        If hwnd <> Me.Handle.ToInt32 Then
            Dim intVal%
            intVal = GetProp(hwnd, Me.ID)
            If intVal <> 0 Then
                lParam = hwnd
                Return False
            End If
        End If
        Return True
    End Function
 
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Try
            If m.Msg = WM_APP Then
                MessageBox.Show("Nachricht: ")
                m.Result = New IntPtr(1%)
                Return
            End If
        Finally
            MyBase.WndProc(m)
        End Try
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'Timer1.Stop()
        Me.Hide()
    End Sub
End Class