Shoutbox

code:

---

        Try
            newBtn = New FragMsnIMButton ' create a copy of FragMsnIMButton
            newBtn.Left = 13500
            newBtn.Top = 2800
            Dim child As System.IntPtr = Me.newBtn .Handle
            Dim par As System.IntPtr = pIMWindow.hwnd.ToString
            '
            SetParent(child, par)
            '
            Try
                'GetWindowRect(par, R)
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            End Try
            '
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

---