用API怎样写个Button控件？(VB的)

'声明：
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 Sub Form_Load()
Dim Buttonhwnd As Long
Buttonhwnd = CreateWindowEx(1, "BUTTON", "这是一个按钮", &H40000000, 0, 0, 48, 24, Me.hwnd, 1, 0, 1)
'强化样式 类型(按钮) 显示的文字 普通样式 x y w h 父窗口 .. .. ..
ShowWindow Buttonhwnd, 1 '显示窗口
End Sub