Startup VB 5.00
Create a Standard EXE
Select Project Components from the menu
Check Microsoft Multimedia Control 5.0
Check Microsoft Common Dialog Control 5.0
Press Enter

Set the following properties for the form:

Name = frmAVIPlayer 
BorderStyle = 3 'Fixed Dialog
Caption = "AVI Player"
Height = 720
Left = 45
Top = 330
Width = 8190
Icon = (None) [Select the word (Icon) and press delete]
StartUpPosition = 2 'CenterScreen

Then add a label control to the form and set the following properties:
Name = lblFilename 
Caption =
BorderStyle = 1 'Fixed Single
Font 
  Name = "Tahoma"
  Size = 14
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 5115

Then add a command button control to the form and set the following properties:
Name = cmdBrowse 
Caption = "&Browse..."
Default = -1 'True
Height = 495
Left = 5400
TabIndex = 1
Top = 120
Width = 1155

Then add a common dialog control to the form and set the following properties:

Name = cdlCommon
Left = 4500
Top = 780

Then add a MMControl control to the form and set the following properties:

Name = mciPlayer 
Height = 495
Left = 6720
TabIndex = 2
Top = 120
Width = 1305
NextVisible = 0 'False
PauseVisible = 0 'False
BackVisible = 0 'False
StepVisible = 0 'False
RecordVisible = 0 'False
EjectVisible = 0 'False

Then double-click on the Browse command button and type the following code

Private Sub cmdBrowse_Click()
    mciPlayer.Command = "Close"
    cdlCommon.Filter = "AVI Files (*.AVI)|*.avi|All Files (*.*)|*.*"
    cdlCommon.Flags = cdlOFNHideReadOnly
    cdlCommon.ShowOpen
    lblFilename.Caption = cdlCommon.filename
    mciPlayer.filename = cdlCommon.filename
    mciPlayer.Command = "Open"
End Sub