求助 我要做一个VB摇人名 应该怎么改

你说的是不是像抽奖机一样的 不过里面滚动的是人名

是不是这个样子？
Dim m As Byte, n As Byte
Private m_astrName() As String
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
For i = 1 To List1.ListCount
If List1.List(i) = m_astrName(m) Then
Timer1.Enabled = False
Debug.Print "重复"
Exit Sub
End If
Next i
List1.AddItem m_astrName(m)
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Text1.Text = ""
List1.Clear
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Command3.Caption = "清除"
Command4.Caption = "退出"
m_astrName() = Split("张三 李四 张一 李二 张五", " ")
n = UBound(m_astrName()) + 1
End Sub
Private Sub Timer1_Timer()
Randomize
m = Int(n * Rnd)
Text1.Text = Str(m)
End Sub