Farve under musen

Det er meget nemt hvis det er i din egen form eller en kontrol på formen:

Dette eksempel antager, at det er i formen:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lColor As Long

    lColor = Form1.Point(X, Y)
   
End Sub

Hvis du skal have farven overalt på skærmen, kan du bruge koden her:

http://www.codeguru.com/vb/gen/vb_graphics/article.php/c2357/

Tak for hjælpen

Takker for points..........;)