Cara Menghilangkan Shortcurt Pada Dekstop

Berikut ini adalah cara untuk menghilangkan shortcut program pada desktop :
Langkah 1
Klik menu START > RUN (atau bisa juga Windows + R), kemudian tulis "REGEDIT"

Langkah 2
Setelah itu cari HKEY_CLASSES_ROOT lalu cari folder Inkfile – sebenarnya “L”nkfile (bukan inkfile), atau kalau masih bingung mencarinya silahkan coba Ctrl + F kemudian ketik IsShortcut lalu tekanEnter atau Find Next.
Langkah 3
Setelah ketemu, klik kanan tulisan IsShortcut tersebut lalu Rename dari IsShortcut menjadiIsShortcuts (ada tambahan "s" dibelakangnya).

Langkah 4
Jika sudah, sekarang restart komputer Anda.

Dan sekarang Anda pun bisa berkata “ Demi kerapihan dan keindahan pandangan kami! Maka dengan ini aku usir kamu selamanya dari desktop ini.”

Attention :
Jika masih terdapat tanda panah, cari folder piffile dalam HKEY_CLASSES_ROOT lakukan persis seperti folder lnkfile tadi, yaitu meRename file isShortcut yang ada di dalamnya menjadi isShortcuts.

Sebenarnya kita bisa menghilangkan tanda panah shortcut ini dengan cara menghapus file IsShortcuttadi. Tapi alangkah baiknya jika kita ubah namanya saja dan kemudian tinggal menghapus tambahan huruf “s”  dibelakangnya tadi untuk berjaga2 mungkin saja sewaktu - waktu Anda  berubah pikiran waktu teringat bahwa dulu Anda pernah putus dengan Pacar gara – gara shortcut yang hilang tersebut. Tentu Anda tak ingin hal ini terulang lagi, bukan?hehehe…
 

Oke! Selamat Mencobanya.

Membuat Make Up Menggunakan Photoshop

Mau foto kamu di make Up tapi gak perlu pake make up ? malahan kita bisa berkreasi sendiri warna nya.. 

pertama buka file foto yang mau di make over ( saya pake foto adik ipar -red ) :

Langkah pertama seleksi bibir nya , untuk diwarnai.

setelah terseleksi, klik Select > Feather atau select > modify > feather untuk CS3.

Klik Edit > Copy ( atau Tekan CTRL + C ) terus klik lagi edit > paste ( atau tekan ctrl + V) , maka nanti akan terbentuk layer 1.

Klik Image > Adjustment > Selective color  , setting seperti dibawah :

Setelah itu gunakan brush tool untuk membuat garis biru di atas mata :

Klik Filter > Blur > gaussian blur  .  setting seperti di bawah :

Atur Opacity nya :

Sekarang buat layer baru lagi dan gunakan brush tool dengan diameter 5, gambar dengan warna hitam garis di sekitar mata :

Klik Filter > blur Gaussian Blur

Gunakan Blending Soft light

Bikin layer baru lagi buat pipi nya, terus gambar titik yang agak besar warna merah yaa..

klik Filter > Blur > Gaussian Blur

atur Opacity atau transparancy nya :

Hasilnya bakalan kayak gini :

Sumber: http://ilmuphotoshop.com

membuat Efek Water Painting Dengan Photoshop

Efek Water painting ini keren menurut saya.. cocok untuk editan foto pre-wedding… Di tutorial membuat efek water painting ini kita gunakan brush. sebelumnya mendingan download dulu brush nya disini :

 

( Klik untuk memperbesar terus download )

Oia, kali ini saya pake Adobe Photoshop CS5.

Kalo sudah siap semua persenjataan .. Buat dokumen baru ukuran sekitar 1500 x 1000 px / 72 inch/px

Buat layer baru di atas layer background.. lalu warnai dengan paint bucket tool putih

Klik Filter > Texture > texturizer

Sekarang buka file begron.jpg

Drag begron.jpg ke dokumen baru yang tadi udah dibuat.

Ganti layer style jadi Multiply dan opacity sekitar 50%

Sekarang buka file Foto.. langkahnya sama dengan diatas.. Drag file foto ke dokumen baru

Atur letak foto tersebut .

Posisi penempatan layer seperti ini..

Masih di layer gambar.. Klik Filter > artistic > Dry Brush

Masih di layer gambar.. Klik Layer > Group Layer

nanti akan otomatis kebentuk Grup layer yang didalamnya ada layer foto..

Klik di Group 1. terus Klik Layer > Layer Mask > Hide All

Sekarang saat nya kita ngeBrush pake brush yang tadi didownload.. tapi install dulu brush nya..

cara install brush   :

Setelah brush tersebut didownload, buka dan extract file RAR nya.. lalu Klik 2x File ABR nya. nanti otomatis brushnya akan terinstall di photoshop.

untuk menampilkan window brush.. Klik Window > Brush

sekarang tinggal pilih brush yang mana yang mau dipake. saya sih pake nya no 456 dan 453 nanti bisa diputer-puter dan di perkecil atau diperbesar kok  brush nya. (liat gambar)

Klik di layer mask atau Kotak warna hitam disamping tulisan Group 1

lalu warnai dengan Brush 456 atau 345 warna putih.

lanjutkan

Sekarang buat layer baru dibawah Diatas layer 1.  Pilih layer1 , klik Layer >New>Layer

Lalu warnai dengan warna cerah ngejreng seperti Pink, Kuning dan biru muda ..

Hasilnya seperti ini :

Sumber :

http://ilmuphotoshop.com

TUGAS PENGOLAHAN CITRA-LANJUTAN

a.Grayscale/rotate 180
Private Sub grayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grayscale.Click
        Dim rt, pc, pb As Integer
        Dim vm, vh, vb As Integer
        Dim gambar2 As Bitmap
        picture2.Image = picture1.Image
        gambar2 = New Bitmap(picture2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                rt = (vm + vh + vb) / 3
                gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))
            Next
        Next
        picture2.Image = gambar2
        picture2.Refresh()
    End Sub
If gambar IsNot Nothing Then
            gambar.RotateFlip(RotateFlipType.Rotate180FlipX)
            picture2.Image = gambar
        End If
    End Sub

b.Contranst/Rotate 90
If picture2.Image Is Nothing Then
            MsgBox("WARNING : Tidak ada gambar untuk di konversi!")
            Exit Sub
        End If

        gambar = New Bitmap(picture2.Image)
        picture2.Image = gambar
        Dim tempbmp As New Bitmap(picture2.Image)
        Dim pb As Integer = 1
        Dim pc As Integer = 1
        Dim Red, Green, Blue As Integer
        Dim X, Y As Integer
        Dim r As Integer
        r = 5

        With tempbmp
            For X = pb To .Height - pb - 1
                For Y = pc To .Width - pc - 1
                    Red = CInt(.GetPixel(Y, X).R)
                    Green = CInt(.GetPixel(Y, X).G)
                    Blue = CInt(.GetPixel(Y, X).B)
                    'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey  
                    Red = Red * r
                    Blue = Blue * r
                    Green = Green * r
                    If (Red > 255) Then
                        Red = 255
                    End If
                    If (Blue > 255) Then
                        Blue = 255
                    End If
                    If (Green > 255) Then
                        Green = 255
                    End If
                    gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))
                Next
                If X Mod 10 = 0 Then
                    picture2.Invalidate()
                    picture2.Refresh()
                End If
            Next
        End With
    End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        If gambar IsNot Nothing Then
            gambar.RotateFlip(RotateFlipType.Rotate90FlipXY)
            picture2.Image = gambar

        End If
    End Sub

c.Negatif/Rotate 270
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 = 255 - .GetPixel(pc, pb).R
                    vh = 255 - .GetPixel(pc, pb).G
                    vb = 255 - .GetPixel(pc, pb).B

                    If vm <= 0 Then vm = 0

                    If vb <= 0 Then vb = 0

                    If vh <= 0 Then vh = 0
                    .SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
                Next
                picture2.Image = gambar
                picture2.Refresh()
            Next
        End With
    End Sub

d. Biner
Dim pb, pc As Integer
        Dim rata, vm, vh, vb As Double
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = .GetPixel(pc, pb).R
                    vh = .GetPixel(pc, pb).G
                    vb = .GetPixel(pc, pb).B
                    rata = (vm + vh + vb) / 3
                    If (rata < 128) Then
                        vm = 0
                        vh = 0
                        vb = 0
                    Else
                        vm = 255
                        vh = 255
                        vb = 255
                    End If

                    .SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
                Next
                picture2.Image = gambar
                picture2.Refresh()
            Next
        End With
    End Sub

    Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click
        OFD.Filter = "BMP|*.bmp|JPG|*.jpg"
        OFD.ShowDialog()

        If OFD.FileName = "" Then Exit Sub
        picture1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(picture1.Image)
        'menuutama.MdiParent = Me
        'menuutama.Show()
    End Sub

e. Brigthness
Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.Click
        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 + 5
                    vh = .GetPixel(pc, pb).G + 5
                    vb = .GetPixel(pc, pb).B + 5

                    If vm > 255 Then vm = 255

                    If vb > 255 Then vb = 255

                    If vh > 255 Then vh = 255
                    .SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
                Next
                picture2.Image = gambar
                picture2.Refresh()
            Next
        End With
    End Sub

Cara Membuat Judul Blog Berjalan Pada Adres Bar

Cara ini adalah bagian dari pernak pernik blog yang tujuannya untuk mempercantik tampilan blog kita pada browser.Banyak cara untuk membuat blog kita tampil menawan,cantik dan kreatif. Yah selagi cara yang di lakukan tidak membuat loading blog tambah berat.Salah satunya membuat judul blog berjalan di title bar.Letaknya paling atas sebelah kiri yang ada tulisan mozila firefoxnya,bila anda pengguna firefox.

Caranya mudah sekali,ikuti saja langkah-langkahnya seperti dibawah ini: 
1. Login ke akun blogger anda
2. Masuk Dasbor > Tata Letak (layout) > Edit HTML.
3. Kemudian cari kode dibawah ini dengan tombol F3 atau CTRL + F pada keyboard.

<title><data:blog.pageTitle/></title>

yang letaknya di bagian awal.

3. Kemudian ganti kode di atas tersebut dengan kode di bawah ini.

<script language='JavaScript'>

var txt=" Text judul yang dibuat berjalan ";

var kecepatan=120;var segarkan=null;function bergerak() { document.title=txt;

txt=txt.substring(1,txt.length)+txt.charAt(0);

segarkan=setTimeout("bergerak()",kecepatan);}bergerak();

</script>

Catatan : Angka 120 menunjukkan kecepatan gerakan, Anda dapat menggantinya dengan angka yang lebih kecil atau lebih besar, semakin besar nilainya maka kecepatan bergeraknya semakin lambat dan berlaku sebaliknya.
Teks yang bercetak tebal bisa sobat ganti dengan kata-kata sobat 

4. Klik Pratinjau terlebih dahulu untuk melihat hasilnya.
5. Jika sudah berjalan dengan baik kemudian Simpan Template

Jenis-Jenis Tag Dalam HTML

Tag dalam HTML secara garis besarnya dapat dibedakan menjadi dua yaitu Containers dan stand alone Tag.
Containers adalah jenis tag HTML yang cara penulisannya dengan cara berpasangan, atau mempunyai teg pembuka dan penutup tag. Cara penulisannya adalah <tag>…..</tag>. contoh tag containers antara lain :
<body> … </body>
<b … </b>
<i> … </i>
dan sebagainya.

Standalone tag adalah tag yang bisa berdiri sendiri tanpa perlu mempunyai tag penutup. Tag tersebut biasanya hanya berfungi menempatkan sebuah elemen pada halam website. contoh dari tag stand alone diantaranya :
<img> untuk menampilkan gambar
<br> untuk memberi jarak antar teks ( vertikal)
<hr> untuk membuat garis
dan lain sebagainya.
selain kedua jenisa tag tersebut diatas HTML juga mengenal beberapa tag lain yaitu :
Atribut
berfungi menambahkan nilai tertentu pada sebuah script HTML. Cara penulisan atribut berada di dalam Tag Pembuka (Containers). beberapa contoh tag atribut dan penulisannya antara lain
<font color=”red”> Selamat Datang </font>
atribut color disisipkan diantara tag <font> dan </font>
contoh lain
<a href=”http://google.com/ target=”_blank”>KLik disini menuju ke Google </a>
atribut target disipkan diantara <a> dan </a>
HTML entity
HTML entity adalah sebuah kode atau script khusus untuk menuliskan karakter khusus (special character) ke dalam website.
contoh HTML Entity antara lain
spasi,
ini adalah contoh       spasi banyak
dalam membuat sebuah tulisan di dalam website dengan spasil lebih dari satu anda tidak bisa menekan spasi berulang-ulang untuk membuat jarak, ada kode tertentu yang bisa dituliskan diantara kata contoh dan spasi diatas yaitu &nbsp
&nbsp berfungsi membuat satu spasi dalam penulisan website dengan HTML
sehingga penulisan kalimat contoh diatas menjadi
ini adalah contoh &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp spasi banyak.
selain spasi contoh karakter lainnya diantaranya :
&quot;  = ”
&amp;   = &
dan lain sebagainya.
Anda bisa mencoba mencari tag tag yang lain di Internet yang banyak sekali jumlahnya untuk anda praktekkan

 

Cara Memasukkan Gambar Ke Database Dalam VB.Net 2008

Nah kali ini kita akan mencoba membuat sebuah aplikasi yang dapat memasukan sebuah image atau photo kedalam database. Database yang di pakai adalah database access 2007 dalam bahasa VB.NET dengan Visual Studio 2008.
1. Buka Database Access Lalu Buat Database baru beri nama db_gambar .. dan tambahkan New Table dan beri nama tbl_gambar dan atur fieldnya sebagai berikut :

2. Setelah itu lalu buat project baru di Visual Studio  2008 dan beri nama bebas saja deh..  lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

4. Lalu coding code di bawah ini :
   1: Imports System.Data.OleDb
   2: Imports System.Drawing
   3: Imports System.Drawing.Imaging
   4: Imports System.IO
   5:
   6: Public Class Form1
   7:     Dim conn As New OleDbConnection
   8:     Dim cmd As OleDbCommand = Nothing
   9:     Dim rd As OleDbDataReader = Nothing
  10:     Sub opens()
  11:         If Not conn Is Nothing Then
  12:             conn.Close()
  13:         End If
  14:         conn.Open()
  15:     End Sub
  16:     Sub closes()
  17:         conn.Close()
  18:     End Sub
  19:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  20:         conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & Application.StartupPath & “\db_gambar.accdb”
  21:     End Sub
  22:
  23:     Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
  24:         Try
  25:             opens()
  26:             Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
  27:             Dim MyData(fs.Length) As Byte
  28:             fs.Read(MyData, 0, CInt(fs.Length))
  29:             fs.Close()
  30:             cmd = New OleDbCommand(“INSERT INTO tbl_gambar(nama_gb,gb) VALUES (@nama,@Image)”, conn)
  31:             cmd.Parameters.AddWithValue(“@nama”, txtNama.Text)
  32:             cmd.Parameters.AddWithValue(“@Image”, MyData)
  33:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then
  34:                 MessageBox.Show(“Foto berhasil di tambahkan”, “Photo Album SQL”, MessageBoxButtons.OK, MessageBoxIcon.Information)
  35:                 txtNama.Clear()
  36:                 txtNama.Focus()
  37:                 txtFileName.Clear()
  38:                 PicGambar.Image = Nothing
  39:             End If
  40:             closes()
  41:         Catch ex As Exception
  42:             MessageBox.Show(ex.Message)
  43:         End Try
  44:     End Sub
  45:
  46:     Private Sub btnTelusuri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTelusuri.Click
  47:         Try
  48:             OFD.Filter = “Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png”
  49:             OFD.ShowDialog()
  50:             txtFileName.Text = OFD.FileName
  51:             txtFileName.SelectionStart = txtFileName.Text.Length
  52:             If Trim(txtFileName.Text) <> “” Then
  53:                 PicGambar.Image = Image.FromFile(txtFileName.Text)
  54:             End If
  55:         Catch ex As Exception
  56:             MessageBox.Show(ex.Message)
  57:         End Try
  58:     End Sub
  59:
  60:     Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
  61:         Me.Close()
  62:     End Sub
  63:
  64:     Private Sub txtNama_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNama.Validating
  65:         If txtNama.Text.Length = 0 Then
  66:             ErrorProvider1.SetError(txtNama, “Nama Harus Diisi”)
  67:         End If
  68:     End Sub
  69: End Class
5. Nah sudah jadi tuh.. ternyata mudah yah ??
Sedikit penjelasan,, perhatikan potongan kode ini :
   1: Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
   2: Dim MyData(fs.Length) As Byte
   3: fs.Read(MyData, 0, CInt(fs.Length))
Nah kode tersebut adalah mengubah image yang kita browse tadi kedalam variabel bertipe byte. Sebenarnya pada prinsipnya insert data kedalam database itu sama saja kita menggunakan OledbCommand dan Method Execute Non Query namun jika image yang kita input maka image ini harus di konversi dulu ke byte

Sumber : http://thinkvysemarang.wordpress.com
umber

Cara Membobol Password Administrator Windows

Bila anda lupa ataupun ingin membobol password administrator , maupun user lain yang berada dalam komputer anda, cara ini merupakan salah satu dari sekian banyak cara membukanya, cara ini bisa dipakai pada keadaan anda masih bisa memasuki windows melalui salah satu user ataupun user public (tanpa password)

A. Berikut trik singkat untuk memasuki password login administrator

1. Buka Explorer dan masuki C>windows>system32
2. Cari dan Copy cmd, lalu paste di desktop
3. Lalu file tadi di rename dengan nama "sethc"
4. Lalu Cut File "sethc" tadi dan paste ke C>windows>system32 kembali
5. Setelah itu komputer direstart
6. Ketika muncul tampilan logon dilayar dan meminta anda memasukkan password logon, Tekan tmbol Shift 5 atau 6 kali secara berulang.
7. cmd akan muncul lalu ketik "net user ADMINISTRATOR * dan tekan enter
8. komputer akan meminta anda memasukkan password baru untuk administrator, ketik password baru anda.
9. Keluar dan sekarang anda tidak hanya mengetahui password administrator, juga anda bisa mengetahui password user lain dalam komputer itu.

Cara membuat password pada User Account di Windows 7

Kali ini saya akan menjelaskan tentang Cara Membuat Password pada User Account di Windows 7. Nah, membuat password pada user account komputer akan memberikan rasa nyaman kepada si pemilik komputer, karena dengan demikian pengguna lain tidak dapat mengakses komputer tersebut terkecuali si pemilik komputer. Ini disebabkan karena komputer tersebut sudah dilengkapi dengan password dan password tersebut hanya di ketahui oleh si pemilik komputer. Bagaimana cara Membuat Password pada User Account di Windows 7? Simak petunjuk dibawah :

1. Pada start menu klik Control Panel lalu pilih User account.

2. Lalu pilih Manage another account.

3. Maka akan muncul jendela seperti gambar di bawah. Kemudian pilih salah satu User account yang akan dibuat password. Di sini saya akan membuat password pada user account THRESYE.

4. Kemudian pilih Create the password.

5. Lalu silakan masukan password anda di New password dan Confirm new password kemudian klik create password.

Dengan demikian anda telah berhasil membuat password pada user account, secara otomatis komputer anda akan dilindungi dengan password yang telah anda buat. Setiap kali anda ingin menyalakan komputer, maka anda akan dimintai password. Jangan sampai lupa password nya dan jangan sampai password tersebut diketahui orang lain.. hehehe. Sukses.

 

Sumber :  amatookomputer

Contoh Program Penggajian Karyawan dalam Visual Basic

Terlebih dahilu kita desain tampilan seperti ini

 Setelah itu kita buat listing seperti yang di bawah ini. Tapi perlu kita ingat, saat pemberian nama pada textbox jangan menggunakan Spasi ia agar tidak terjadi error. 2 the point aja ia. langsung saja. hehehehe

Public Class Form1
    Sub rancangtabel()
        With l_view
            .Columns.Add("NIP", 50)
            .Columns.Add("Nama Pegawai", 200)
            .Columns.Add("Golongan", 50)
            .Columns.Add("Gaji", 100)
            .Columns.Add("Pajak", 200)
            .Columns.Add("Pinjaman", 100)
            .Columns.Add("Gaji Bersih", 100)
            l_view.View = View.Details
            l_view.GridLines = True
            l_view.FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = (nip.Text)
            .SubItems.Add(npegawai.Text)
            .SubItems.Add(gol.Text)
            .SubItems.Add(gaji.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(pinjaman.Text)
            .SubItems.Add(gbersih.Text)

        End With
        l_view.Items.Add(x)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("001")
        nip.Items.Add("002")
        nip.Items.Add("003")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
        rancangtabel()
        isitabel()

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "001" Then
            npegawai.Text = "Vino"

        ElseIf nip.Text = "002" Then
            npegawai.Text = "Nadia"

        Else
            nip.Text = "003"
            npegawai.Text = "Rasni"


        End If
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        If gol.Text = "IIIA" Then
            gaji.Text = "1500000"
            pinjaman.Text = 200000
        ElseIf gol.Text = "IIIB" Then
            gaji.Text = "2500000"
            pinjaman.Text = 150000
        Else
            gol.Text = "IIIC"
            pinjaman.Text = 100000

        End If
        pajak.Text = 0.15 * gaji.Text
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        gbersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(pajak.Text)
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
        nip.Text = ""
        npegawai.Text = ""
        gol.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gbersih.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub
End Class



Maka saat kita Debug hasilnya seperti ini. :)

Sekian dan terimakasih
Selamat Mencoba. :)