this is the code i am trying to use
Private Sub Command3_Click()
Dim i As Long, Colr As Long
Dim count1 As Long
Pic.ScaleMode = vbPixels
Colr = vbBlack
For i = 0 To Pic.ScaleWidth - 1
If Pic.Point(i, 190) = Colr Then
Pic.PSet (i, 190), &HFFC0&
count1 = count1 + 1...