Public Class Form1
 
    Public Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal hWndInsertAfter As IntPtr, _
ByVal X As Int32, _
ByVal Y As Int32, _
ByVal cx As Int32, _
ByVal cy As Int32, _
ByVal uFlags As Integer) _
As Boolean
 
    Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Integer
    Dim hWnd As Integer
    Dim sTitle As String
 
    Const SWP_NOMOVE As Int32 = &H2
    Const SWP_NOSIZE As Int32 = &H1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        sTitle = "Unbenannt - Editor"
        hWnd = FindWindow(vbNullString, sTitle)
        SetWindowPos(hWnd, New IntPtr(0), 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
    End Sub
End Class

Gru?

Silver