VB如何调用.DLL文件里的函数？

VB如何调用.DLL文件里的函数？各位高手帮帮忙。
比如有一个.DLL文件，同时有一个.BAS文件给出.DLL文件里的函数定义，怎么调用里面的函数？
最好有具体的例子，谢谢各位啊！
部分.BAS里定义的函数：
Public Declare Function GT_Axis Lib "gt400.dll" (ByVal axis As Integer) As Integer
Public Declare Function GT_AxisOff Lib "gt400.dll" () As Integer
Public Declare Function GT_AxisOn Lib "gt400.dll" () As Integer
Public Declare Function GT_BrkOff Lib "gt400.dll" () As Integer
Public Declare Function GT_CaptHome Lib "gt400.dll" () As Integer

这是一个C语言的例子，有谁能编译成VB语言的吗？

本例程实现第一轴以速度 1(Pulse/ST)运动到为20000 后，改变速度为4(Pulse/ST)运
动到位置50000。
void main()
{
GTInitial();
InputCfg();
AxisInitial();
rtn=GT_Axis(1); error(rtn); //设置当前轴为第1 轴
rtn=GT_ClrSts(); error(rtn); //清除状态位
rtn=GT_SetVel(1); error(rtn); //设置速度为1(Pulse/ST)
rtn=GT_SetAcc(0.1); error(rtn); //设置加速度为0.1(Pulse/ST2)
rtn=GT_SetPos(50000); error(rtn); //设定目标位置为50000
rtn=GT_AuUpdtOn(); error(rtn); // 打开断点参数自动刷新功能
rtn=GT_SetBrkCn(20000); error(rtn); //设置断点位置
rtn=GT_Update(); error(rtn); //刷新参数（断点位置生效）
rtn=GT_PosBrk(); error(rtn); //设置条件为大于断点位置
rtn=GT_SetVel(4)； error(rtn); //设置速度为4（等待自动刷新）
}