Audio Program

[Guest_imported]

Could any help me with the following code, I keep getting an error message on the line:

.DeviceType = "Sequencer"

Why is this? Thanks for any help!

Private Sub cmdPlay_Click()
Dim File As String, FileType As String * 3
If txtFiles.Text = "" Then
MsgBox "You haven't selected a file!"
Exit Sub
End If
File = lblPath & "\" & txtFiles.Text
FileType = Right(File, 3)
Select Case FileType
Case "rmi"
With SoundPlayer
.DeviceType = "Sequencer"
.FileName = File: .Command = "Open"
.Command = "Prev": .Command = "Play"
End With
Case "wav"
With SoundPlayer
.DeviceType = "WaveAudio"
.FileName = File: .Command = "Open"
.Command = "Prev": .Command = "Play"
End With
Case Else
MsgBox "Not a Valid Sound Effect!"
End Select
End Sub