Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal _
  nXPos As Long, ByVal nYPos As Long) As Long
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal X _
As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Const CLR_INVALID = &HFFFF
 
Private Sub Command1_Click()
nXPos = 10
nYPos = 10
  With Picture1
    .ScaleMode = vbPixels
  End With
 
  Label1.Caption = vbPixels
 
End Sub

Wer sich f?r kleine Aufgaben zu gro? f?hlt, ist meist f?r Gro?e Aufgaben zu klein!