一个抽奖系统，基本完善，现在要解决重复的有关问题，请帮小弟我完善下

Dim m As Integer
Dim B(1000) As Byte '数组用来存放每次生成的随机数
Dim x As Integer '计数器

Private Sub Command1_Click()

Timer1.Enabled = True
End Sub
Public Sub Command2_Click()
Timer1.Enabled = False

'Label2.Caption = List1.List(B(x))
End Sub

Private Sub Form_Load()
x = 0

Randomize
Timer1.Interval = 5
Timer1.Enabled = False
Open App.Path & "\电话号码.txt" For Input As #1
While EOF(1) = False
Line Input #1, A
List1.AddItem A
Wend
Close #1

End Sub

Public Sub Timer1_Timer()
Randomize
i = Int(Rnd * (5 - 1 + 1) + 1)
Label1.Caption = List1.List(i)
'B(m) = i
End Sub