Kode untuk visual basic (Pilih Bulan)

                                                       PILIH BULAN
Kode untuk pilih bulan

1. Masukan code pada Form Load
cmbBulan.AddItem "Januari"
 cmbBulan.AddItem "Februari"
 cmbBulan.AddItem "Maret"
cmbBulan.AddItem "April"
 cmbBulan.AddItem "Mei"
 cmbBulan.AddItem "Juni"
 cmbBulan.AddItem "Juli"
 cmbBulan.AddItem "Agustus"
 cmbBulan.AddItem "September"
 cmbBulan.AddItem "Oktober"
 cmbBulan.AddItem "November"
 cmbBulan.AddItem "Desember"
 cmbBulan.ListIndex = 0

2. Masukan code untuk ComboBox1 proses pilih bulan
Select Case cmbBulan.ListIndex
Case 0
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
Case 1
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 2
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 3
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 4
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 5
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 6
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
 Case 7
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 8
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
Case 9
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
 Case 10
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
 Case 11
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
End Select

3. Masukan code untuk CommandButton Keluar
 Unload Me

4.  Tekan F5 untuk menjalankan program (Running)