Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 0 To 20
            check(i / 3)
        Next i
    End Sub

    Private Sub check(ByVal num)
        Label1.Text = Label1.Text + Str$(System.Math.Round(num)) + " "
    End Sub
End Class