Private Sub cmdGetNumber_Click()

Dim x As Integer

Randomize Timer

x = Int(Rnd * 10)   '0 through 9 is 10 possibilities

txtOutput.Text = CStr(x)

End Sub

Private Sub cmdExit_Click()

End

End Sub