Visual Lanjutan PRAKTEK 3 Kasus 2 (For Next)

Public Class kasus2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub kasus2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "-Tanggal-"
        ComboBox2.Text = "-Bulan-"
        ComboBox3.Text = "-Tahun-"
        For i = 1 To 31
            ComboBox1.Items.Add(Str(i))
        Next i
        For i = 1 To 12
            ComboBox2.Items.Add(MonthName(i))
        Next i
        For i = 1990 To Year(Now)
            ComboBox3.Items.Add(Str(i))
        Next i
    End Sub
End Class