VB.Net Usefull Code Snippets

From: http://www.dreamincode.net/code/snippet870.htm

Change bitmaps certain color transparency

1. 'Written by Margus Martsepp AKA m2s87
2. Private Function v2bista(ByRef OnPict As System.Drawing.Bitmap, _
3. ByVal xColor As System.Drawing.Color, _
4. ByVal How_Tr As Integer) As Boolean
5. Dim x%, y%, R%, G%, B%
7. v2bista = True
9. With OnPict
10. For x = 1 To .Width - 1
11. For y = 1 To .Height - 1
12. R = .GetPixel(x, y).R
13. G = .GetPixel(x, y).G
14. B = .GetPixel(x, y).B
16. If xColor.R = R And xColor.G = G And xColor.B = B Then
17. .SetPixel(x, y, System.Drawing.Color.FromArgb(How_Tr, R, G, B))
18. End If
19. Next
20. Next
21. End With
22. End Function