On Error Resume Next
Dim i As Integer, splitfilename() As String
flstSongs.Path = dirMusic.Path
If flstSongs.ListCount <> 0 Then
    For i = 1 To flstSongs.ListCount - 1
        splitfilename = Split(flstSongs.List(i),

 On Error Resume Next
Dim fso As New FileSystemObject, prefs As TextStream
    Set prefs = fso.CreateTextFile(App.path & "/settings.txt", True)
    With prefs
        .WriteLine txtServer.Text
        .WriteLine txtPort.Text
        .WriteLine chkResign.Value
        .WriteLine chkPrivacy.Value

Public PCForm As New frmPC, strName As String
Private Sub Class_Initialize()
Set PCForm = New frmPC
Load PCForm
PCForm.Show
PCForm.txtPCName.Text = strName
End Sub

Private Sub Class_Terminate()
Set PCForm = Nothing
End Sub

Private Sub cmdLoad_Click()
If lstLoad.ListCount > 1 Then lstLoad.Clear
On Error GoTo Cancelled
  
    cdlcommon.DialogTitle = "Load List"
    cdlcommon.CancelError = True
    cdlcommon.InitDir = App.Path
    cdlcommon.Flags = &H4
    cdlcommon.Filter = "Text File (*.txt)|*.txt|All files (*.*)|*.*"
    cdlcommon.ShowOpen