影像處理(落差顯示)

       '灰階("Old"為未灰階之原始影像)
       For i = 1 To Old.Width - 1
            For j = 1 To Old.Height - 1
                Dim C As Color = Old.GetPixel(i, j)'取得此座標像素值
                Dim Ha As Integer = C.R * 0.3 + C.G * 0.6 + C.G * 0.1'算出灰階值
                YA.SetPixel(i, j, Color.FromArgb(Ha, Ha, Ha))'設定於新影像
            Next
        Next