在 VB6 里，Alias 关键字主要在声明外部函数时使用，其作用是指定该函数在动态链接库（DLL）里的实际名称。下面为你详细介绍其用途与示例。

用途：

当你在 VB6 里调用外部 DLL 中的函数时，函数名也许和你在 VB6 代码里声明的名字不一样。这时，Alias 关键字就能用来指明函数在 DLL 中的实际名称。此外，若 DLL 中的函数使用了名称修饰（比如 C++ 的名称修饰），你可以借助 Alias 来指定未经修饰的函数名。

下面是一个简单的示例，它调用了 Windows API 中的 MessageBox 函数：

' 声明 MessageBox 函数
Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Sub ShowMessage()
    Dim result As Long
    result = MessageBox(0, "这是一个消息框", "提示", 0)
End Sub

代码解释：

Declare Function：这是用来声明外部函数的语句。

MessageBox：这是在 VB6 代码里使用的函数名。

Lib "user32.dll"：表示该函数位于 user32.dll 动态链接库中。

Alias "MessageBoxA"：指明该函数在 user32.dll 里的实际名称是 MessageBoxA。在 Windows API 中，MessageBox 有两个版本，分别是 MessageBoxA（用于 ANSI 字符集）和 MessageBoxW（用于 Unicode 字符集）。

ShowMessage 子程序调用 MessageBox 函数，从而显示一个消息框。

不使用 Alias 的情况

当你在 VB6 代码里使用的函数名和它在 DLL 中的实际名称相同时，就不用 Alias 关键字。这种情况下，VB6 能够直接依据你声明的函数名找到 DLL 里对应的函数。

' 声明 GetTickCount 函数，该函数名在 kernel32.dll 中也是 GetTickCount
Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub TestGetTickCount()
    Dim tickCount As Long
    tickCount = GetTickCount()
    MsgBox "系统启动到现在的毫秒数: " & tickCount
End Sub

在这个例子中，GetTickCount 函数在 VB6 代码里的声明名称和它在 kernel32.dll 中的实际名称一样，所以不需要使用 Alias。