Option Explicit
Dim i As Integer Dim s As String Private Sub AddBut_Click() On Error Resume Next List1.AddItem Text1.Text Text1.Text = "" End Sub Private Sub command2_click() On Error Resume Next Open "mp3.txt" For Output As #1 For i = 0 To List1.ListCount Print #1, List1.List(i) Next i Close 1 End Sub Private Sub Command3_Click() On Error Resume Next List1.RemoveItem List1.ListIndex End Sub Private Sub Command4_Click() On Error Resume Next Unload Me End Sub Private Sub Command5_Click() End Sub Private Sub Form_Load() On Error Resume Next Open "mp3.txt" For Input As #1 While EOF(1) = 0 Input #1, s List1.AddItem s Wend Close 1 End Sub Private Sub Form_Unload(Cancel As Integer) command2_click End Sub Private Sub List1_Click() Text4.Text = List1.ListCount End Sub Private Sub mnuExit_Click() On Error Resume Next Unload Me End Sub Assumes: This is the beta of the program i'm hoping to implement an mp3 player into the next version. You would need To add the followint to the form: 3 command buttons- 1 named AddBut and the other two command2 and command 3 A List box - List1 2 Text Boxes - Text1, and Text 4 |