Dim BMP As Bitmap
Dim x,y as Integer
 
Dim rect As New Rectangle(0, 0, x, y)
Dim bmpData As System.Drawing.Imaging.BitmapData = BMP.LockBits(rect, Drawing.Imaging.ImageLockMode.ReadWrite, BMP.PixelFormat)
Dim ptr As IntPtr = bmpData.Scan0
Dim bytes As Integer = bmpData.Stride * y
Dim rgbValues(bytes - 1) As Byte
 
System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)
Dim secondcounter As Integer = 0
 
Dim tempred As Integer
Dim tempblue As Integer
Dim tempgreen As Integer
Dim tempalpha As Integer
Dim tempx As Integer
Dim tempy As Integer
 
While secondcounter < rgbValues.Length
 tempblue = rgbValues(secondcounter)
 tempgreen = rgbValues(secondcounter + 1)
 tempred = rgbValues(secondcounter + 2)
 tempalpha = rgbValues(secondcounter + 3)
 tempalpha = 255
 tempy = ((secondcounter * 0.25) / x)
 tempx = (secondcounter * 0.25) - (tempy * x)
 If tempx < 0 Then
  tempx = tempx + x
 End If
 'Code
 rgbValues(secondcounter) = tempblue
 rgbValues(secondcounter + 1) = tempgreen
 rgbValues(secondcounter + 2) = tempred
 rgbValues(secondcounter + 3) = tempalpha
 secondcounter = secondcounter + 4
End While
System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, ptr, bytes)
BMP.UnlockBits(bmpData)