How to add 10 number in listbox with a little code? : I code this it's fine but can I code a little ?

        If D = 10 Then
            ListBox3.Items.Add(1)
            ListBox3.Items.Add(2)
            ListBox3.Items.Add(3)
            ListBox3.Items.Add(4)
            ListBox3.Items.Add(5)
            ListBox3.Items.Add(6)
            ListBox3.Items.Add(7)
            ListBox3.Items.Add(8)
            ListBox3.Items.Add(9)
            ListBox3.Items.Add(10)
        End If



if you don't understand my question you can read the example 

we can code 

     Dim A As Integer
     Dim B As Integer
     Dim C As Integer
     Dim D As Integer

but we can code a little like this

    Dim A, B, C, D As Integer