Mengisi Combobox dengan tanggal, Bulan, Tahun

Pada dasarnya jika kita ingin mengisi items combobox pasti kita akan mengisinya manual seperti yang dibawah ini

Combobox1.items.add(januari)
Combobox1.items.add(Februari)


Jika isinya sedikit sih tidak masalah, tetapi bayangkan kalau combobox itu diisi dengan items yang banyak contohnya tanggal yang ada 31 items. Nah inilah akan aku beri solusi untuk masalah ini

Pertama kalian buat interface seperti di gambar ini

untuk keterangan dari gambar tersebut yaitu
yang dilingkari hitam itu menggunakan label yang properties text nya diganti sesuai tulisan yang ada disana
untuk yang dilingkari merah itu merupakan Button yang properties text nya diganti sessuai tulisan dengan nama yang atas Button1 dan yang bawah adalah Button2

dan yang diberi kotak warna biru itu merupakan combobox yaitu
1. yang paling atas adalah combobox1
2. Yang ada di tengah-tengah adalah combobox2
3. Yang ada di paling bawah adalah combobox3
yang diberi kotak oranye itu merupakan listbox yang diberi nama listbox1
pertama-tama klik 2 kali pada formnya hingga muncul tampilan seperti ini

Kemudian masukan koding di antara private sub dan end sub
Dim i As Integer
        For i = 1 To 31
            ComboBox1.Items.Add(i)
        Next
        Dim b As Integer
        For b = 1 To 12
            Dim a As String
            a = MonthName(b)
            ComboBox2.Items.Add(a)
        Next
        Dim c As Integer
        For c = 1997 To Year(Now)
            ComboBox3.Items.Add(c)
        Next
Dan pada Button1 klik 2 kali dan ketikkan listing berikut
        With ListBox1.Items
            .Add(ComboBox1.Text)
            .Add(ComboBox2.Text)
            .Add(ComboBox3.Text)
        End With
Pada Button2 klik 2 kali dan ketikan listing berikut
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ListBox1.Items.Clear()  

Setelah semua selesai maka akan muncul tampilan seperti dibawah ini 

 Oke sekian dulu postingan kali ini semoga bermanfaat :-)