一、在VB中声明API函数有两种方法：如果我们只在某个窗体中使用API函数，我们可以在窗体代码的General部分声明它：
声明的语法是：

Private Declare Function …

Private Declare Sub…..

这里必须采用Private声明，因为这个API函数只能被一个窗体内的程序所调用。
如果我们的程序有多个窗体构成，而且我们需要在多个窗体中使用同一个API函数，就需要在模块中声明了。

先添加一个模块（如图示），

然后采用如下语法声明：

Public Declare Function….

Public Declare Sub….

Public声明的含义是把API函数作为一个公共函数或过程，在一个工程中的任何位置（包括所有的窗体和模块）都能直接调用它。 声明完毕我们就能在程序中使用此API函数了。
二、可采用以下几种方式使用API函数，以SetWindowPos函数为例：

（1）忽略函数返回值的调用：

SetWindowPos Form1.hWnd, -2 ,0 ,0 ,0, 0, 3

注意此时函数的参数是不加括号的。

（2）Call方法调用：

Call SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

注意这里需要加上括号，但我们不取回函数的返回值。

（3）取得函数返回值的调用：

MyLng = SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

此时需要加上括号，而且我们必须事先定义一个变量（变量的类型与函数返回值类型相同）来存储API函数的返回值。
三、几个问题的说明：
（1）声明中的Lib 和 Alias 是怎么回事

一般情况下WIN32API函数总是包含在WINDOWS系统自带的或是其它公司提供的动态连接库DLL中，而Declare语句中的Lib关键字就用 来指定DLL（动态连接库）文件的路径，这样VB才能找到这个DLL文件，然后才能使用其中的API函数。如果我们只是列出DLL文件名而不指出其完整的 路径的话，VB会自动到.EXE文件所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文件。所以如果所要 使用DLL文件不在上述几个目录下的话，我们应该指明其完整路径。

Alias用于指定API函数的别名，如果我们调用的API函数要使 用字符串（参数中包含String型）的话，Alias关键字是必须的。这是因为在ANSI和Unicode字符集中同一API函数的名称可能是不一样 的，为了保证不出现声明错误，我们使用Alias关键字指出API函数的别名，一般来说在WIN9X平台下我们把API函数名后加一个大写A作为别名即 可。
（2）常见的API参数类型的说明

API函数的参数中最常见的是长整Long型数据类型，例如API中的句柄、一些特定的常量、函数的返回值都是此类型 的值；另外几种常见的参数类型有：整型Integer、Byte型、String型等。
（3）声明中的ByVal是作什么用的

这跟VB的参数传递方式有关，在默认情况下VB是通过地址传递方式传递函数的参数、而有些API函数要求必须采用传值方式来传递函数参数（这两种参数传 递方式是不同的，前者传递的是一个指针，而后者要求是参数真实的值）。这样就会发生错误，解决的办法是在API函数参数声明的前面加上ByVal关键字， 这样VB就采用传值方式传递参数了。
（4）怎样得到完整的API函数声明

VB自带了API文本查看器API TEXT VIEWER，我们可以在其中找到API函数的完整声明，然后把它粘贴到程序中即可。

   今天刚做一个程序，里面有用到某点颜色的RGB值，又懒得去下载现成的颜色提取软件。想想利用VB自己写个，应该也不难吧。所以就查了查API，顺手写了 这个颜色提取的小程序。程序中利用了3个API，GetCursorPos、GetDC、GetPixel。原理是利用GetCursorPos得到当前 鼠标的位置，用GetDC获得桌面的场景，最后用GetPixel来提取该点的RGB值和十六进制的颜色值。在本页底部可下载原代码。

程序运行界面如图，比较简单，有兴趣自己可以改改。VB中是用RGB来表示颜色的，如果你要做网页，就会用十六进制值了。

点击输入RGB，然后可分别在R、G、B中输入数字（0-255之间），按回车可自动获取RGB值和HEX值。

点击从屏幕抓取，可获得屏幕上任意一点的RGB和HEX值。程序右下角是鼠标的位置。

具体代码：

Option Explicit
Private Declare Function GetCursorPos Lib “user32″ (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib “gdi32″ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib “user32″ (ByVal hwnd As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim p As POINTAPI
Dim lrgb As Long
Dim sthex As String

Private Sub Form_Load()
Timer1.Interval = 20
Timer2.Interval = 20
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub opinput_Click()
Timer2.Enabled = False
tr.Text = “”
tg.Text = “”
tb.Text = “”
tr.ToolTipText = “输入RGB值 0-255″
tg.ToolTipText = “输入RGB值 0-255″
tb.ToolTipText = “输入RGB值 0-255″
tr.SetFocus
End Sub

Private Sub opinput_DblClick()
Timer2.Enabled = False
MsgBox “已停止提取颜色”
End Sub

Private Sub oppick_Click()
Timer2.Enabled = True
Me.Caption = “颜色提取 – 双击选项框可停止提取”
tr.ToolTipText = “”
tg.ToolTipText = “”
tb.ToolTipText = “”
End Sub

Private Sub oppick_DblClick()
Timer2.Enabled = False
MsgBox “已停止提取颜色”
End Sub

Private Sub tb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
lrgb = RGB(tr.Text, tg.Text, tb.Text)
trgb.Text = lrgb
Picture1.BackColor = lrgb
If lrgb = 0 Then
thex.Text = “000000″
Else
sthex = Hex(lrgb)
thex.Text = Right(sthex, 2) & Mid(sthex, 3, 2) & Left(sthex, 2)
End If

End If
End Sub

Private Sub tg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tb.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Call GetCursorPos(p)
lx.Caption = “x =  ” & p.x
ly.Caption = “y =  ” & p.y
‘获取鼠标位置
End Sub

Private Sub Timer2_Timer()
Dim hwnd, lrgb As Long
hwnd = GetDC(0)
lrgb = GetPixel(hwnd, p.x, p.y)
trgb.Text = lrgb
Picture1.BackColor = lrgb
tr.Text = lrgb Mod 256
tg.Text = (lrgb \ 256) Mod 256
tb.Text = lrgb \ 256 \ 256
If lrgb = 0 Then
thex.Text = “000000″
Else
sthex = Hex(lrgb)
thex.Text = Right(sthex, 2) & Mid(sthex, 3, 2) & Left(sthex, 2)
End If

End Sub

Private Sub tr_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tg.SetFocus
End If
End Sub
代码下载：pickcolor.rar

下面给出的全是WINDOWS自带的API函数，可以用于VB和VC中。给出的是函数名和函数功能。想知道细节可以用GOOGLE搜一下。这可以做为一个索引来用。
阅读全文