动态加载Api

先看看下面一段代码: 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long 
Dim a, b As Long 
Private Sub Command1_Click() 
a = LoadLibrary("kernel32") 
b = GetProcAddress(a, "Beep") 
End Sub 
上面调用 LoadLibrary 函数加载kernel32.DLL库。然后使用 GetProcAddress 函数获得Beep函数导出的 DLL 函数的地址。可是怎样根据返回值 a 和 b 进一步调用Beep函数呢？ 
例如我在VB中对Beep函数不做声明，而是利用 a 和 b 两个变量来调用Beep函数，使其等效于C=Beep（100，100） 
OK？
最近搞的这个程序挺棘手的,需要用到大量的Api函数,太浪费资源了,我想要让它需要用到某一个函数时再把它加载,应该可以吧?