i want to display 10 nos when clicking the button but it not happen

[code]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m As Integer
While (m <= 10)
ListBox1.Items.Add(m.ToString)
m = ++1
End While
End Sub
[code]