Нет звука в exe file Private Sub cmdUA_Click() End End Sub
Private Sub Form_Load() n = 0 MMCPlayer.DeviceType = "Sequencer" MMCPlayer.FileName = App.Path & "\vagon.mid" MMCPlayer.Command = "Open" MMCPlayer.Command = "Play" End Sub
Private Sub Form_Terminate() MMCPlayer.Command = "Close" End Sub
Private Sub Timer1_Timer() n = n + 1 Text1.Text = n Picture1.Left = Picture1.Left + 2 End Sub
|