主题：随机数的位数问题

请教老师，下面代码 能生成随机数，但是有时是3位数，有时是5位数，怎样固定在5位数      用NextString又不行

Dim Val As Integer= Rand.Next(99999) '生成0到99999之间的随机整数
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.text = val

另外，TEXTBOX内的数字怎样设置为出现1秒后自动停止TIMERTICK