Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, _
  ByVal Y As Long, ByVal crColor As Long) As Long
 
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _
	X As Single, Y As Single)
	If Button = 1 Then
		SetPixel Picture1.hdc, X, Y, Picture1.FillColor
	End If
End Sub