Public Class Form1
    Public Shared Function SetWindowPos( _
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 Int32) _
As Boolean
    End Function
    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
 
    Const HWND_BOTTOM As Int32 = &H1
    Const HWND_TOPMOST As Int32 = -1&
    Const HWND_NOTOPMOST As Int32 = -2&
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        sTitle = "dvbviewer"
        hWnd = FindWindow(vbNullString, sTitle)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        SetWindowPos( _
        hWnd, _
        New IntPtr(-1), _
        0, 0, 0, 0, _
        SWP_NOMOVE Or SWP_NOSIZE)
    End Sub
End Class