请教，有个VB编程问题（求助）

各位论坛的友友们，你们好，想请教各位一个问题，是关于编程的
问题如下：
以下是一段关于声音控制的一段代码，现要做如下改进：
编程软件可以随机控制多个扬声器一起发声，随机控制线路增加灵活性（就是页面上参数的灵活性）
Option Explicit
Dim m_timers As Long
Dim m_curTimers As Long
Dim m_curIndex As Integer   '记录当前打开的继电器
Dim m_n As Long     '记录循环次数
Private Sub Check1_Click(Index As Integer)
    OutData
End SubSub OutData()
    Dim SendByte As Integer
    Dim Bit_Wert As Integer
    
    SendByte = 0    Dim x As Integer
    
    For x = 1 To 8
        If Check1(x).Value = 1 Then
            SendByte = SendByte + Mark(x - 1)
        End If
    Next    Debug.Print SendByte
    Out DataRegister, SendByte 'Data lines (data bus)End Sub
Private Sub CmdStart_Click()
    If CmdStart.Caption = "开始" Then
        
        Timer1.Interval = Val(TxtOpenTime.Text)
        If Timer1.Interval = 0 Then
            MsgBox "打开时间不能为0"
            Exit Sub
        End If
        
        m_timers = Val(txtCloseTime.Text) * 1000 / Timer1.Interval
        Timer1.Enabled = True
        m_curTimers = 0
        
        CmdStart.Caption = "停止"
        TxtOpenTime.Enabled = False
        txtCloseTime.Enabled = False
        TxtTimes.Enabled = False
        m_n = 0
    Else
        Out DataRegister, 0
        CmdStart.Caption = "开始"
        TxtOpenTime.Enabled = True
        txtCloseTime.Enabled = True
        TxtTimes.Enabled = True
        Timer1.Enabled = False
    End If
End SubPrivate Sub Form_Load()
    Mark(0) = &H1
    Mark(1) = &H2
    Mark(2) = &H4
    Mark(3) = &H8
    Mark(4) = &H10
    Mark(5) = &H20
    Mark(6) = &H40
    Mark(7) = &H80
    
    
    TxtOpenTime.Text = "40"
    txtCloseTime.Text = "5"
    TxtTimes.Text = "100"
    TxtInfo.Text = ""
    Dim i As Integer
    For i = 1 To 8
        Check1(i).Caption = "线路" + Trim(i)
    Next
    Timer1.Enabled = False
    Option1(0).Value = True
    'Option1_Click 0
End Sub
Function RndOpen() As Integer
    Dim i As Integer
    RndOpen = Rnd() * 7
    RndOpen = Rnd() * 7End Function
Private Sub Option1_Click(Index As Integer)
    Frame1(Index).Enabled = True
    Frame1(1 - Index).Enabled = False
End SubPrivate Sub Timer1_Timer()    If m_curTimers = 0 Then
        Dim rndIndex As Integer
        rndIndex = RndOpen        While rndIndex = m_curIndex
            rndIndex = RndOpen
        Wend
        
        m_curIndex = rndIndex
        
        Out DataRegister, Mark(m_curIndex)
        m_curTimers = m_curTimers + 1
        TxtInfo.Text = TxtInfo.Text + vbCrLf + "打开线路" + Str(m_curIndex + 1)
    Else
        If m_curTimers = 1 Then
                TxtInfo.Text = TxtInfo.Text + vbCrLf + "关闭线路" + Str(m_curIndex + 1)
                TxtInfo.SelLength = 0
                TxtInfo.SelStart = Len(TxtInfo.Text)            
        End If
        Out DataRegister, 0
        m_curTimers = m_curTimers + 1
    End If
    
    If m_curTimers = m_timers Then
        m_n = m_n + 1
        m_curTimers = 0
    End If
    
    If m_n >= Val(TxtTimes.Text) Then
        CmdStart_Click
    End If
    
End Sub现在这个代码，放在那个应用软件包里只能控制单个扬声器发声，要对其做些改进，使其可以随机控制多个扬声器一起发声，随机控制线路增加灵活性（就是页面上参数的灵活性）整个问题就是这样，希望各位看到的高手帮个忙，谢谢了