Public Function translate(ByRef img As Image, ByVal red As Single,ByVal green _
  As Single, ByVal blue As Single,Optional ByVal alpha As Single = 0) As Image
	Dim sr, sg, sb, sa As Single
	sr = red / 100
	sg = green / 100
	sb = blue / 100
	sa = alpha / 100
	Dim cm()() As Single = { _
		New Single() {1, 0, 0, 0, 0}, _
		New Single() {0, 1, 0, 0, 0}, _
		New Single() {0, 0, 1, 0, 0}, _
		New Single() {0, 0, 0, 1, 0}, _
		New Single() {sr, sg, sb, sa, 1} _
	}
	Return(draw_adjusted_image(img, New ColorMatrix(cm)))
End Function
 
Private Function draw_adjusted_image(ByRef img As Image,ByVal cm As _
  ColorMatrix) As Image
	Try
		Dim bmp As New Bitmap(img)
		Dim imgattr As New ImageAttributes()
		Dim rc As New Rectangle(0, 0, img.Width, img.Height)
		Dim g As Graphics = Graphics.FromImage(img)
		imgattr.SetColorMatrix(cm) 
		g.DrawImage(bmp, rc, 0, 0, img.Width, img.Height,GraphicsUnit.Pixel, imgattr)
		g.Dispose()
		Return bmp
	Catch
		Return Nothing
	End Try
End Function
 
Private Sub Bzui()
	Dim im As Image = New Bitmap(100,100)
	Dim gg As Graphics = Graphics.FromImage(im)
	gg.FillRectangle(Brushes.Red,00,00,10,10)
	gg.FillRectangle(Brushes.Green,10,10,10,10)
	gg.FillRectangle(Brushes.yellow,20,20,10,10)
	Dim i2 As Image = im.Clone()
	pictureBox1.Image = translate(im,0,trackBar2.Value / 10,trackBar3.Value / _
  10,trackBar4.Value / 10)
	pictureBox2.Image = i2
End Sub