Public Class Form1 Dim point As Double Const count As Integer = 20 Dim random As New Random() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click point += (1.0R / count) * random.Next(0, 3) Label1.Text = Math.Floor(point).ToString() End Sub End Class