Help creating an unmanaged Button!

[PT Exorcist]

I need to subclass a openFileDialog control, get its hwnd(already did it), subclass it(will make it later) and then create buttons and the code.

Any help creating a button in a form(for now)?
I already managed to do this(C# Code):

[DllImport("User32.Dll", CharSet=CharSet.Auto)]
public static extern void CreateWindowEx(int ExStyle, string className, string title, uint WSstyle, int x, int y, int width, int height, IntPtr parent, int menu, int instance, object extraParam);

private void MyFunc() {
IntPtr HINSTANCE = Microsoft.VisualBasic.Compatibility.VB6.Support.GetHInstance();

CreateWindowEx(0, "BUTTON", "LOLS", 0x40000000, 0, 0, 100, 100, this.Handle, 0, HINSTANCE.ToInt32(), 0);
}

It isn't giving any error but it also doesnt show anything in my form.. any idea in what i'm doing wrong?

[PT Exorcist]

nevermind, i just forgot about the ShowWindow()

[Pirate]

Ex .

Const WS_EX_STATICEDGE = &H20000
Const WS_EX_TRANSPARENT = &H20&
Const WS_CHILD = &H40000000
Const CW_USEDEFAULT = &H80000000
Const SW_NORMAL = 1
Private Type CREATESTRUCT
    lpCreateParams As Long
    hInstance As Long
    hMenu As Long
    hWndParent As Long
    cy As Long
    cx As Long
    y As Long
    x As Long
    style As Long
    lpszName As String
    lpszClass As String
    ExStyle As Long
End Type
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim mWnd As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim CS As CREATESTRUCT
    'Create a new label
    mWnd = CreateWindowEx(WS_EX_STATICEDGE Or WS_EX_TRANSPARENT, "STATIC", "Hello World !", WS_CHILD, 0, 0, 300, 50, Me.hwnd, 0, App.hInstance, CS)
    Me.Caption = mWnd
    'Show our label
    ShowWindow mWnd, SW_NORMAL
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'destroy our label
    DestroyWindow mWnd
End Sub