Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a As Integer
        For a = 1 To 10
            cbproduct.Items.Add(a)
        Next

        cbbanktransfer.Items.Add("Bank Mandiri")
        cbbanktransfer.Items.Add("Bank BRI")
        cbbanktransfer.Items.Add("Bank BCA")
        cbbanktransfer.Items.Add("Bank DKI")
        cbbanktransfer.Items.Add("Bank BNI")

        cbjenislensa.Items.Add("Lensa Single Vision")
        cbjenislensa.Items.Add("Lensa Bifokal")
        cbjenislensa.Items.Add("Lensa Progresif")
        cbjenislensa.Items.Add("Lensa Silinder")
        cbjenislensa.Items.Add("Lensa Minus")
        cbjenislensa.Items.Add("Lensa Plus")

    End Sub