一台电脑可以同时播放一万个视频吗？播放器多开程序。

1，添加label控件，caption属性为“数量：”。
2，添加textbox控件，text属性为“”。
3，添加“Command”控件，名为”Command1“。
Dim 播放器数量_Integer As Integer
Dim 播放器数量_String As String
Private Sub Command1_Click()
Dim 数量 As Integer
数量 = Text1.Text
Dim i As Integer
For i = 0 To 数量 - 1 Step 1
Call Command1_创建_1(i)
Next
End Sub

Public Sub Command1_创建_1(ByVal i As Integer)
Dim frm As New Form3
 On Error Resume Next
        frm.Caption = "播放器第" & (i + 1) & "个"
frm.Show
End Sub

------------------------------------------------------------------------------------
1，添加label控件，caption属性为“歌曲：”。
2，添加textbox控件，text属性为“10”。
3，添加“ CommonDialog”控件，名为 CommonDialog1。添加“Command”控件，名为”Command3“，Caption属性为“添加”。
Private Sub Command3_Click()
Dim 文件 As String
With CommonDialog1
.FileName = ""
.Filter = "文件 (*.mp3;*.mp4;*.avi;*.mov;*.wma;*.wmv)|*.mp3;*.mp4;*.avi;*.mov;*.wma;*.wmv|"
.ShowOpen
文件 = .FileName
End With
    If CommonDialog1.FileName = "" Then
    Exit Sub
    End If    
    tempFileName = CommonDialog1.FileName
         文件名数组 = Split(文件, Chr(92))
        For i = 0 To UBound(文件名数组) - 1
        文件名路径 = 文件名路径 & 文件名数组(i) & "\"
        Next i