请问 ReleaseDC 如何使用?

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Sub Timer1_Timer()

Dim WindowDC As Long

Dim MousePoint As POINTAPI

Dim Color As Long

WindowDC = GetDC(0)

GetCursorPos MousePoint

Color = GetPixel(WindowDC, MousePoint.x, MousePoint.y)

Text1.Text = "Timer1_Timer: " & (Color)

'ReleaseDC (a)

'这个用起来就失败了,不用的话没有释放占资源,请问这个到底怎么使用???

End Sub

[438 byte] By [msdn] at [2007-11-17 11:05:59]