Menambahkan warna Citra Digital dengan Trackbar pada VB 2008

Pertama-tama pastinya kita harus memiliki program VB 2008 dan desain seperti gambar disamping yang terdiri dari komponen :
1. MenuStrip
2. OpenFileDialog
3. SaveFileDialog
4. Dua Buah PictureBox Name 
    masing2 (Pic1, Pic2)
5. Tiga buah textbox name(merah, hijau, Biru)
6. Tiga Buah Trackbar name(merahgeser, hijaugeser, birugeser) maximum masing2(100)
7. button

Lalu doubleklik Tracbar name merahgeser dan kopi paste berikut ini :

  merah.Text = merahgeser.Value

Lalu doubleklik Trackbar name hijaugeser dan kopi paste berikut ini :

  hijau.Text = hijaugeser.Value

 Lalu doubleklik Trackbar name  birugeser dan kopi paste berikut ini :

  biru.Text = birugeser.Value

 Lalu doubleklik Textbox name merah dan kopi paste berikut ini :

merahgeser.Value = merah.Text
        If merah.Text > 100 Then
            merah.Text = 100
        ElseIf merah.Text < 0 Then
            merah.Text = 0
        End If

 Lalu doubleklik Textbox name hijau dan kopi paste berikut ini :

hijaugeser.Value = hijau.Text
        If hijau.Text > 100 Then
            hijau.Text = 100
        ElseIf hijau.Text < 0 Then
            hijau.Text = 0
        End If

 Lalu doubleklik button dan kopi paste berikut ini :

Dim gambar As Bitmap = New Bitmap(Pic1.Image)
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R + merahgeser.Value
                    vH = .GetPixel(Pc, Pb).G + hijaugeser.Value
                    vB = .GetPixel(Pc, Pb).B + birugeser.Value
                    If vM > 255 Then vM = 255
                    If vH > 255 Then vH = 255
                    If vB > 255 Then vB = 255
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With

Dan Selamat Mencoba dengan menekantombol F5
Trimakasih telah berkunjung :)