<DllImport("gdi32", CharSet:=CharSet.Ansi)> _
Public Shared Function DeleteDC(ByVal hdc As Integer) As Integer
<DllImport("user32", CharSet:=CharSet.Ansi)> _
Public Shared Function GetDC(ByVal hwnd As Integer) As IntPtr
<DllImport("gdi32", CharSet:=CharSet.Ansi)> _
Public Shared Function GetPixel(ByVal hdc As Integer, ByVal x As Integer, ByVal _
y As Integer) As Integer
 
Private dc as Integer
 
Private Sub ObtainDC()
    Dim ptr1 As IntPtr = API.GetDC(0)
    Me.dc = ptr1.ToInt32
End Sub
 
Private Sub FreeDC()
    API.DeleteDC(Me._dc)
End Sub
 
Public Function ToColor(ByVal colVal As Integer) As Color
    Return Color.FromArgb((colVal And 255), ((colVal And 65280) / 256), (( _
      colVal And 16711680) / 65536))
End Function