<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
       Public Function FindWindow _
           ( _
           ByVal lpClassName As String, _
           ByVal lpWindowName As String _
           ) _
           As IntPtr
    End Function
 
    Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
      ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx _
      As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
    Const SWP_NOSIZE As Short = &H1
    Const SWP_SHOWWINDOW As Short = &H40
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim hwnd As Integer = FindWindow("DV2ControlHost", "Startmenü")
        Debug.Print("hWnd: " & hwnd.ToString)
 
        SetWindowPos(hwnd, IntPtr.Zero, Me.Location.X, (Me.Location.Y - _
          Size.Height), 0, 0, SWP_NOSIZE + SWP_SHOWWINDOW)
 
    End Sub

--------------------
Theorie ist wenn man alles wei?, aber nichts funktioniert.
Praxis ist wenn alles funktioniert, aber niemand wei? warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand wei? warum.

Beitrag wurde zuletzt am 31.03.10 um 00:12:39 editiert.