使用API在VB中创建状态栏

VB中你想创建一个简单的状态栏也用上那个几MB的OCX吗?有没有方法可以不用呢下面就是以API来创建
一个状态栏VB让初学朋友学得很方便但对你对VB有所了解的时候却发现VB原来就是鸡肋......
先创建一个窗体在窗体里添加两个Button然后写下以下代码:
-----------------------------------------------

Create Status Bar Demo

code by loveboom[DFCG][FCG][US]
email:loveboom#163.com
http://blog.1*1*1co*m.net/bmd2chen

-------------------------------------------------
Dim hWndBar As Long ;状态栏句柄
Private Const IDC_STATBAR As Long = &H2005 状态栏ID
Private Sub Command1_Click()
Dim ret As Boolean
ret = CreateStatBar(Me.hwnd, IDC_STATBAR, hWndBar)
If ret = True Then
MsgBox "创建状态栏成功!"
Else
MsgBox "创建状态栏失败:-(!", 48
End If
End Sub
Private Sub Command2_Click()
SetBarText hWndBar, 1, "Create StatusBar Demo:-)!"
End Sub