Dim source As New Bitmap("C:\myColoredImage.jpg")
Dim dest As New Bitmap(source.Width, source.Height)
Dim destGraph As Graphics = Graphics.FromImage(dest)
ControlPaint.DrawImageDisabled(destGraph, source, 0, 0, Color.Empty)
destGraph.Dispose()
dest.Save("C:\myGrayscaleImage.jpg")