Sayın atoz112 size konuyla ilgili linki vermiş ancak belki zamanınız olmaz diye kodları ben düzeltilmiş olarak yayınlayayım. O satırları şu şekilde düzeltiniz:

Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long