Visual Basic

<code>
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Int32, _
ByVal hWndNewParent As Int32) As Int32
</code>

Declare Function SetParent Lib "user32.dll" ( _ <br />
	 ByVal hWndChild As Long, _ <br />
	 ByVal hWndNewParent As Long) As Long 

<br />
Declare Function SetParent Lib "user32.dll" ( _<br />
ByVal hWndChild As IntPtr, _<br />
ByVal hWndNewParent As IntPtr) As Long

<br />
Declare Function SetParent Lib "user32.dll" ( _<br />
ByVal hWndChild As Int32, _<br />
ByVal hWndNewParent As Int32) As Long

Public Class Form1<br />
    'API Declarations<br />
    Private Declare Function SetParent Lib "user32.dll" ( _<br />
      ByVal hWndChild As IntPtr, _<br />
      ByVal hWndNewParent As IntPtr) As Int32<br />
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _<br />
      ByVal lpClassName As String, _<br />
      ByVal lpWindowName As Int32) As Int32<br />
    'API NOTE: When using the findWindow API command you can replace the indetfiers of<br />
    'either classname or windowname to Int32 so that you can have an empty (0) parameter<br />
    'similar to the null object in C# and C++.<br />
<br />
<br />
<br />
    'Variables to store the handles of specific windows<br />
    Dim apiViewerHandle As Int32 = 0<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        apiViewerHandle = FindWindow("ThunderRT6FormDC", 0)<br />
        If apiViewerHandle = 0 Then<br />
            'You always need to make sure that you have a windows' handle<br />
            'if the handle is 0 then you do not have any control over the window<br />
            MessageBox.Show(apiViewerHandle.ToString())<br />
            MessageBox.Show("No handle can be found")<br />
            Application.Exit()<br />
        Else<br />
            'SetParent(buttonHandle, taskbarHandle)<br />
            SetParent(apiViewerHandle, Me.Handle.ToInt32())<br />
        End If<br />
    End Sub<br />
<br />
End Class<br />
<br />