关于VB的动态链接库，来吧！送你100分！(100分)

' 声 明API 函 数
Private Declare Function
ShellAbout Lib "shell32.dll" _
Alias "ShellAbout" (ByVal hwnd
As Long, ByVal szApp As String, _
ByVal szOtherStuff As String,
ByVal hIcon As Long) As Long

在 需 要 的 地 方 使 用 它：
Private Sub ABOUTCd_Click()
x = ShellAbout(Form1.hwnd,
" 人 事 管 理 软 件 2.0", _
" 新 天 地 软 件 工 作 室", Form1.Icon)
End Sub

运行后发生错误：实时错误："454" 找不到DLL入口点shellabout in shell32.dll

ShellAboutA (AnsiCode版本)
或者
ShellAboutW （Unicode版本)

Private Declare Function ShellAbout Lib "shell32.dll" Alias _
"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

同意jeffreylaw,要明API,既然用VB,可以通过VB的API工具,多方便

多人接受答案了。