Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
Dim bm As New Bitmap(pbAfter.Image) 'grayscale Dim X As Integer Dim Y As Integer Dim clr As Integer For X = 0 To bm.Width - 1 For Y = 0 To bm.Height - 1 clr = (CInt(bm.GetPixel(X, Y).R) + _ bm.GetPixel(X, Y).G + _ bm.GetPixel(X, Y).B) \ 3 bm.SetPixel(X, Y, … 
|