Dim Text As String
Dim chislo As Long

Public Sub Play(vFile As String)
On Error Resume Next
Me.MSVidCtl1.DisableVideo
Me.MSVidCtl1.Stop
Me.MSVidCtl1.View App.Path & "\" & vFile
Me.MSVidCtl1.Run



End Sub





Private Sub Form_Load()
Me.Image5.Picture = Me.Image3.Picture
Me.Image1.Picture = Me.Image3.Picture
Me.Image2.Picture = Me.Image3.Picture
Me.Image6.Picture = Me.Image3.Picture
Me.BackColor = RGB( 232 ,  240 ,  240 )

End Sub



Private Sub Label1_Click()
On Error Resume Next
Play "1.mp3"

End Sub



Private Sub Label16_Click()
On Error Resume Next
Me.MSVidCtl1.Stop


End Sub

Private Sub Label2_Click()
On Error Resume Next
Play "2.mp3"

End Sub

Private Sub Label3_Click()
On Error Resume Next
Play "3.mp3"

End Sub

Private Sub Label4_Click()
On Error Resume Next
Play "4.mp3"

End Sub

Private Sub Label5_Click()
On Error Resume Next
Play "5.mp3"

End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL =  1 
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "C:\project.exe", vbNullString, "", SW_SHOWNORMAL
End Sub