Option Explicit 
Private mfilename As String 
Private mflags As Long 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 


Public Property Get filename() As String 
     filename = mfilename 
End Property 

Public Property Let filename(ByVal vnewvalue As String) 
     mfilename = vnewvalue 
End Property 

Public Property Get flags() As Long 
     flags = mflags 
End Property 

Public Property Let flags(ByVal vnewvalue As Long) 
     mflags = vnewvalue 
End Property 

Public Sub play() 
     Dim rc As Long 
     rc = sndPlaySound(mfilename, mflags) 
End Sub

Actually that is the implementation of a class module in VB, to play a specified file you will need to import this class into your project and then set the property filename to the files you want to play.

Hi there, Thanks for the website and lots of appreciations.
I am a beginner in VB6.
I want to know how to put the systems master control of audio panel in my application of MMControl. and regulate the volume of out put.
How to make the videoscreen of this MMcontrol to full screen.!!
How to make the form fullscreen at run time with the controls proportionally expanded in the page.
How to open existing PDF or Doc files through this VB application.
I request an immediate reply. Thanks in advance and ATB.
If possible, please send a reply to my email id also :
mankind33@gmail.com