home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Play_multi20264710232006.psc / DemoWindow.frm < prev    next >
Text File  |  2006-10-22  |  48KB  |  1,498 lines
  1. VERSION 5.00
  2. Begin VB.Form DemoWindow 
  3.    Caption         =   "Grigri's Sound Manager - Test Application"
  4.    ClientHeight    =   5145
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8655
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   343
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   577
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Frame I_HATE_FRAME_CONTROLS 
  14.       Caption         =   "Instant Sound"
  15.       BeginProperty Font 
  16.          Name            =   "Arial"
  17.          Size            =   8.25
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   1095
  25.       Left            =   6240
  26.       TabIndex        =   70
  27.       Top             =   0
  28.       Width           =   2295
  29.       Begin VB.CommandButton btnInstantSound 
  30.          Caption         =   "Instant"
  31.          BeginProperty Font 
  32.             Name            =   "Arial"
  33.             Size            =   8.25
  34.             Charset         =   0
  35.             Weight          =   400
  36.             Underline       =   0   'False
  37.             Italic          =   0   'False
  38.             Strikethrough   =   0   'False
  39.          EndProperty
  40.          Height          =   495
  41.          Left            =   1200
  42.          TabIndex        =   71
  43.          Top             =   480
  44.          Width           =   975
  45.       End
  46.       Begin VB.Label lblInstant 
  47.          Caption         =   "Click this one as fast as you can!"
  48.          BeginProperty Font 
  49.             Name            =   "Arial"
  50.             Size            =   8.25
  51.             Charset         =   0
  52.             Weight          =   400
  53.             Underline       =   0   'False
  54.             Italic          =   0   'False
  55.             Strikethrough   =   0   'False
  56.          EndProperty
  57.          Height          =   615
  58.          Left            =   120
  59.          TabIndex        =   72
  60.          Top             =   240
  61.          Width           =   2055
  62.       End
  63.    End
  64.    Begin VB.CommandButton btnPlayAll 
  65.       Caption         =   "Play All (!)"
  66.       BeginProperty Font 
  67.          Name            =   "Arial"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   375
  76.       Left            =   1680
  77.       TabIndex        =   69
  78.       Top             =   600
  79.       Width           =   1335
  80.    End
  81.    Begin VB.CommandButton btnLoadAll 
  82.       Caption         =   "Load All"
  83.       BeginProperty Font 
  84.          Name            =   "Arial"
  85.          Size            =   8.25
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   375
  93.       Left            =   1680
  94.       TabIndex        =   68
  95.       Top             =   120
  96.       Width           =   1335
  97.    End
  98.    Begin VB.CommandButton btnFree 
  99.       Caption         =   "Free"
  100.       Enabled         =   0   'False
  101.       BeginProperty Font 
  102.          Name            =   "Arial"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   255
  111.       Index           =   10
  112.       Left            =   7920
  113.       TabIndex        =   67
  114.       Top             =   4440
  115.       Width           =   615
  116.    End
  117.    Begin VB.CommandButton btnStop 
  118.       Caption         =   "Stop"
  119.       Enabled         =   0   'False
  120.       BeginProperty Font 
  121.          Name            =   "Arial"
  122.          Size            =   8.25
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   255
  130.       Index           =   10
  131.       Left            =   7200
  132.       TabIndex        =   66
  133.       Top             =   4440
  134.       Width           =   615
  135.    End
  136.    Begin VB.CommandButton btnPlay 
  137.       Caption         =   "Play"
  138.       Enabled         =   0   'False
  139.       BeginProperty Font 
  140.          Name            =   "Arial"
  141.          Size            =   8.25
  142.          Charset         =   0
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   255
  149.       Index           =   10
  150.       Left            =   6480
  151.       TabIndex        =   65
  152.       Top             =   4440
  153.       Width           =   615
  154.    End
  155.    Begin VB.CommandButton btnLoad 
  156.       Caption         =   "Load"
  157.       BeginProperty Font 
  158.          Name            =   "Arial"
  159.          Size            =   8.25
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   255
  167.       Index           =   10
  168.       Left            =   5760
  169.       TabIndex        =   64
  170.       Top             =   4440
  171.       Width           =   615
  172.    End
  173.    Begin VB.TextBox txtSoundFile 
  174.       BeginProperty Font 
  175.          Name            =   "Lucida Console"
  176.          Size            =   8.25
  177.          Charset         =   0
  178.          Weight          =   400
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   285
  184.       Index           =   10
  185.       Left            =   1680
  186.       TabIndex        =   63
  187.       Text            =   "Swedish.wav"
  188.       Top             =   4440
  189.       Width           =   3975
  190.    End
  191.    Begin VB.CommandButton btnFree 
  192.       Caption         =   "Free"
  193.       Enabled         =   0   'False
  194.       BeginProperty Font 
  195.          Name            =   "Arial"
  196.          Size            =   8.25
  197.          Charset         =   0
  198.          Weight          =   400
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   255
  204.       Index           =   9
  205.       Left            =   7920
  206.       TabIndex        =   61
  207.       Top             =   4080
  208.       Width           =   615
  209.    End
  210.    Begin VB.CommandButton btnStop 
  211.       Caption         =   "Stop"
  212.       Enabled         =   0   'False
  213.       BeginProperty Font 
  214.          Name            =   "Arial"
  215.          Size            =   8.25
  216.          Charset         =   0
  217.          Weight          =   400
  218.          Underline       =   0   'False
  219.          Italic          =   0   'False
  220.          Strikethrough   =   0   'False
  221.       EndProperty
  222.       Height          =   255
  223.       Index           =   9
  224.       Left            =   7200
  225.       TabIndex        =   60
  226.       Top             =   4080
  227.       Width           =   615
  228.    End
  229.    Begin VB.CommandButton btnPlay 
  230.       Caption         =   "Play"
  231.       Enabled         =   0   'False
  232.       BeginProperty Font 
  233.          Name            =   "Arial"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   400
  237.          Underline       =   0   'False
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       Height          =   255
  242.       Index           =   9
  243.       Left            =   6480
  244.       TabIndex        =   59
  245.       Top             =   4080
  246.       Width           =   615
  247.    End
  248.    Begin VB.CommandButton btnLoad 
  249.       Caption         =   "Load"
  250.       BeginProperty Font 
  251.          Name            =   "Arial"
  252.          Size            =   8.25
  253.          Charset         =   0
  254.          Weight          =   400
  255.          Underline       =   0   'False
  256.          Italic          =   0   'False
  257.          Strikethrough   =   0   'False
  258.       EndProperty
  259.       Height          =   255
  260.       Index           =   9
  261.       Left            =   5760
  262.       TabIndex        =   58
  263.       Top             =   4080
  264.       Width           =   615
  265.    End
  266.    Begin VB.TextBox txtSoundFile 
  267.       BeginProperty Font 
  268.          Name            =   "Lucida Console"
  269.          Size            =   8.25
  270.          Charset         =   0
  271.          Weight          =   400
  272.          Underline       =   0   'False
  273.          Italic          =   0   'False
  274.          Strikethrough   =   0   'False
  275.       EndProperty
  276.       Height          =   285
  277.       Index           =   9
  278.       Left            =   1680
  279.       TabIndex        =   57
  280.       Text            =   "Russian.wav"
  281.       Top             =   4080
  282.       Width           =   3975
  283.    End
  284.    Begin VB.CommandButton btnFree 
  285.       Caption         =   "Free"
  286.       Enabled         =   0   'False
  287.       BeginProperty Font 
  288.          Name            =   "Arial"
  289.          Size            =   8.25
  290.          Charset         =   0
  291.          Weight          =   400
  292.          Underline       =   0   'False
  293.          Italic          =   0   'False
  294.          Strikethrough   =   0   'False
  295.       EndProperty
  296.       Height          =   255
  297.       Index           =   11
  298.       Left            =   7920
  299.       TabIndex        =   55
  300.       Top             =   4800
  301.       Width           =   615
  302.    End
  303.    Begin VB.CommandButton btnStop 
  304.       Caption         =   "Stop"
  305.       Enabled         =   0   'False
  306.       BeginProperty Font 
  307.          Name            =   "Arial"
  308.          Size            =   8.25
  309.          Charset         =   0
  310.          Weight          =   400
  311.          Underline       =   0   'False
  312.          Italic          =   0   'False
  313.          Strikethrough   =   0   'False
  314.       EndProperty
  315.       Height          =   255
  316.       Index           =   11
  317.       Left            =   7200
  318.       TabIndex        =   54
  319.       Top             =   4800
  320.       Width           =   615
  321.    End
  322.    Begin VB.CommandButton btnPlay 
  323.       Caption         =   "Play"
  324.       Enabled         =   0   'False
  325.       BeginProperty Font 
  326.          Name            =   "Arial"
  327.          Size            =   8.25
  328.          Charset         =   0
  329.          Weight          =   400
  330.          Underline       =   0   'False
  331.          Italic          =   0   'False
  332.          Strikethrough   =   0   'False
  333.       EndProperty
  334.       Height          =   255
  335.       Index           =   11
  336.       Left            =   6480
  337.       TabIndex        =   53
  338.       Top             =   4800
  339.       Width           =   615
  340.    End
  341.    Begin VB.CommandButton btnLoad 
  342.       Caption         =   "Load"
  343.       BeginProperty Font 
  344.          Name            =   "Arial"
  345.          Size            =   8.25
  346.          Charset         =   0
  347.          Weight          =   400
  348.          Underline       =   0   'False
  349.          Italic          =   0   'False
  350.          Strikethrough   =   0   'False
  351.       EndProperty
  352.       Height          =   255
  353.       Index           =   11
  354.       Left            =   5760
  355.       TabIndex        =   52
  356.       Top             =   4800
  357.       Width           =   615
  358.    End
  359.    Begin VB.TextBox txtSoundFile 
  360.       BeginProperty Font 
  361.          Name            =   "Lucida Console"
  362.          Size            =   8.25
  363.          Charset         =   0
  364.          Weight          =   400
  365.          Underline       =   0   'False
  366.          Italic          =   0   'False
  367.          Strikethrough   =   0   'False
  368.       EndProperty
  369.       Height          =   285
  370.       Index           =   11
  371.       Left            =   1680
  372.       TabIndex        =   51
  373.       Text            =   "Polish.wav"
  374.       Top             =   4800
  375.       Width           =   3975
  376.    End
  377.    Begin VB.CommandButton btnFree 
  378.       Caption         =   "Free"
  379.       Enabled         =   0   'False
  380.       BeginProperty Font 
  381.          Name            =   "Arial"
  382.          Size            =   8.25
  383.          Charset         =   0
  384.          Weight          =   400
  385.          Underline       =   0   'False
  386.          Italic          =   0   'False
  387.          Strikethrough   =   0   'False
  388.       EndProperty
  389.       Height          =   255
  390.       Index           =   8
  391.       Left            =   7920
  392.       TabIndex        =   49
  393.       Top             =   3720
  394.       Width           =   615
  395.    End
  396.    Begin VB.CommandButton btnStop 
  397.       Caption         =   "Stop"
  398.       Enabled         =   0   'False
  399.       BeginProperty Font 
  400.          Name            =   "Arial"
  401.          Size            =   8.25
  402.          Charset         =   0
  403.          Weight          =   400
  404.          Underline       =   0   'False
  405.          Italic          =   0   'False
  406.          Strikethrough   =   0   'False
  407.       EndProperty
  408.       Height          =   255
  409.       Index           =   8
  410.       Left            =   7200
  411.       TabIndex        =   48
  412.       Top             =   3720
  413.       Width           =   615
  414.    End
  415.    Begin VB.CommandButton btnPlay 
  416.       Caption         =   "Play"
  417.       Enabled         =   0   'False
  418.       BeginProperty Font 
  419.          Name            =   "Arial"
  420.          Size            =   8.25
  421.          Charset         =   0
  422.          Weight          =   400
  423.          Underline       =   0   'False
  424.          Italic          =   0   'False
  425.          Strikethrough   =   0   'False
  426.       EndProperty
  427.       Height          =   255
  428.       Index           =   8
  429.       Left            =   6480
  430.       TabIndex        =   47
  431.       Top             =   3720
  432.       Width           =   615
  433.    End
  434.    Begin VB.CommandButton btnLoad 
  435.       Caption         =   "Load"
  436.       BeginProperty Font 
  437.          Name            =   "Arial"
  438.          Size            =   8.25
  439.          Charset         =   0
  440.          Weight          =   400
  441.          Underline       =   0   'False
  442.          Italic          =   0   'False
  443.          Strikethrough   =   0   'False
  444.       EndProperty
  445.       Height          =   255
  446.       Index           =   8
  447.       Left            =   5760
  448.       TabIndex        =   46
  449.       Top             =   3720
  450.       Width           =   615
  451.    End
  452.    Begin VB.TextBox txtSoundFile 
  453.       BeginProperty Font 
  454.          Name            =   "Lucida Console"
  455.          Size            =   8.25
  456.          Charset         =   0
  457.          Weight          =   400
  458.          Underline       =   0   'False
  459.          Italic          =   0   'False
  460.          Strikethrough   =   0   'False
  461.       EndProperty
  462.       Height          =   285
  463.       Index           =   8
  464.       Left            =   1680
  465.       TabIndex        =   45
  466.       Text            =   "Norwegian.wav"
  467.       Top             =   3720
  468.       Width           =   3975
  469.    End
  470.    Begin VB.CommandButton btnFree 
  471.       Caption         =   "Free"
  472.       Enabled         =   0   'False
  473.       BeginProperty Font 
  474.          Name            =   "Arial"
  475.          Size            =   8.25
  476.          Charset         =   0
  477.          Weight          =   400
  478.          Underline       =   0   'False
  479.          Italic          =   0   'False
  480.          Strikethrough   =   0   'False
  481.       EndProperty
  482.       Height          =   255
  483.       Index           =   7
  484.       Left            =   7920
  485.       TabIndex        =   43
  486.       Top             =   3360
  487.       Width           =   615
  488.    End
  489.    Begin VB.CommandButton btnStop 
  490.       Caption         =   "Stop"
  491.       Enabled         =   0   'False
  492.       BeginProperty Font 
  493.          Name            =   "Arial"
  494.          Size            =   8.25
  495.          Charset         =   0
  496.          Weight          =   400
  497.          Underline       =   0   'False
  498.          Italic          =   0   'False
  499.          Strikethrough   =   0   'False
  500.       EndProperty
  501.       Height          =   255
  502.       Index           =   7
  503.       Left            =   7200
  504.       TabIndex        =   42
  505.       Top             =   3360
  506.       Width           =   615
  507.    End
  508.    Begin VB.CommandButton btnPlay 
  509.       Caption         =   "Play"
  510.       Enabled         =   0   'False
  511.       BeginProperty Font 
  512.          Name            =   "Arial"
  513.          Size            =   8.25
  514.          Charset         =   0
  515.          Weight          =   400
  516.          Underline       =   0   'False
  517.          Italic          =   0   'False
  518.          Strikethrough   =   0   'False
  519.       EndProperty
  520.       Height          =   255
  521.       Index           =   7
  522.       Left            =   6480
  523.       TabIndex        =   41
  524.       Top             =   3360
  525.       Width           =   615
  526.    End
  527.    Begin VB.CommandButton btnLoad 
  528.       Caption         =   "Load"
  529.       BeginProperty Font 
  530.          Name            =   "Arial"
  531.          Size            =   8.25
  532.          Charset         =   0
  533.          Weight          =   400
  534.          Underline       =   0   'False
  535.          Italic          =   0   'False
  536.          Strikethrough   =   0   'False
  537.       EndProperty
  538.       Height          =   255
  539.       Index           =   7
  540.       Left            =   5760
  541.       TabIndex        =   40
  542.       Top             =   3360
  543.       Width           =   615
  544.    End
  545.    Begin VB.TextBox txtSoundFile 
  546.       BeginProperty Font 
  547.          Name            =   "Lucida Console"
  548.          Size            =   8.25
  549.          Charset         =   0
  550.          Weight          =   400
  551.          Underline       =   0   'False
  552.          Italic          =   0   'False
  553.          Strikethrough   =   0   'False
  554.       EndProperty
  555.       Height          =   285
  556.       Index           =   7
  557.       Left            =   1680
  558.       TabIndex        =   39
  559.       Text            =   "Irish.wav"
  560.       Top             =   3360
  561.       Width           =   3975
  562.    End
  563.    Begin VB.CommandButton btnFree 
  564.       Caption         =   "Free"
  565.       Enabled         =   0   'False
  566.       BeginProperty Font 
  567.          Name            =   "Arial"
  568.          Size            =   8.25
  569.          Charset         =   0
  570.          Weight          =   400
  571.          Underline       =   0   'False
  572.          Italic          =   0   'False
  573.          Strikethrough   =   0   'False
  574.       EndProperty
  575.       Height          =   255
  576.       Index           =   6
  577.       Left            =   7920
  578.       TabIndex        =   37
  579.       Top             =   3000
  580.       Width           =   615
  581.    End
  582.    Begin VB.CommandButton btnStop 
  583.       Caption         =   "Stop"
  584.       Enabled         =   0   'False
  585.       BeginProperty Font 
  586.          Name            =   "Arial"
  587.          Size            =   8.25
  588.          Charset         =   0
  589.          Weight          =   400
  590.          Underline       =   0   'False
  591.          Italic          =   0   'False
  592.          Strikethrough   =   0   'False
  593.       EndProperty
  594.       Height          =   255
  595.       Index           =   6
  596.       Left            =   7200
  597.       TabIndex        =   36
  598.       Top             =   3000
  599.       Width           =   615
  600.    End
  601.    Begin VB.CommandButton btnPlay 
  602.       Caption         =   "Play"
  603.       Enabled         =   0   'False
  604.       BeginProperty Font 
  605.          Name            =   "Arial"
  606.          Size            =   8.25
  607.          Charset         =   0
  608.          Weight          =   400
  609.          Underline       =   0   'False
  610.          Italic          =   0   'False
  611.          Strikethrough   =   0   'False
  612.       EndProperty
  613.       Height          =   255
  614.       Index           =   6
  615.       Left            =   6480
  616.       TabIndex        =   35
  617.       Top             =   3000
  618.       Width           =   615
  619.    End
  620.    Begin VB.CommandButton btnLoad 
  621.       Caption         =   "Load"
  622.       BeginProperty Font 
  623.          Name            =   "Arial"
  624.          Size            =   8.25
  625.          Charset         =   0
  626.          Weight          =   400
  627.          Underline       =   0   'False
  628.          Italic          =   0   'False
  629.          Strikethrough   =   0   'False
  630.       EndProperty
  631.       Height          =   255
  632.       Index           =   6
  633.       Left            =   5760
  634.       TabIndex        =   34
  635.       Top             =   3000
  636.       Width           =   615
  637.    End
  638.    Begin VB.TextBox txtSoundFile 
  639.       BeginProperty Font 
  640.          Name            =   "Lucida Console"
  641.          Size            =   8.25
  642.          Charset         =   0
  643.          Weight          =   400
  644.          Underline       =   0   'False
  645.          Italic          =   0   'False
  646.          Strikethrough   =   0   'False
  647.       EndProperty
  648.       Height          =   285
  649.       Index           =   6
  650.       Left            =   1680
  651.       TabIndex        =   33
  652.       Text            =   "Icelandic.wav"
  653.       Top             =   3000
  654.       Width           =   3975
  655.    End
  656.    Begin VB.CommandButton btnFree 
  657.       Caption         =   "Free"
  658.       Enabled         =   0   'False
  659.       BeginProperty Font 
  660.          Name            =   "Arial"
  661.          Size            =   8.25
  662.          Charset         =   0
  663.          Weight          =   400
  664.          Underline       =   0   'False
  665.          Italic          =   0   'False
  666.          Strikethrough   =   0   'False
  667.       EndProperty
  668.       Height          =   255
  669.       Index           =   5
  670.       Left            =   7920
  671.       TabIndex        =   31
  672.       Top             =   2640
  673.       Width           =   615
  674.    End
  675.    Begin VB.CommandButton btnStop 
  676.       Caption         =   "Stop"
  677.       Enabled         =   0   'False
  678.       BeginProperty Font 
  679.          Name            =   "Arial"
  680.          Size            =   8.25
  681.          Charset         =   0
  682.          Weight          =   400
  683.          Underline       =   0   'False
  684.          Italic          =   0   'False
  685.          Strikethrough   =   0   'False
  686.       EndProperty
  687.       Height          =   255
  688.       Index           =   5
  689.       Left            =   7200
  690.       TabIndex        =   30
  691.       Top             =   2640
  692.       Width           =   615
  693.    End
  694.    Begin VB.CommandButton btnPlay 
  695.       Caption         =   "Play"
  696.       Enabled         =   0   'False
  697.       BeginProperty Font 
  698.          Name            =   "Arial"
  699.          Size            =   8.25
  700.          Charset         =   0
  701.          Weight          =   400
  702.          Underline       =   0   'False
  703.          Italic          =   0   'False
  704.          Strikethrough   =   0   'False
  705.       EndProperty
  706.       Height          =   255
  707.       Index           =   5
  708.       Left            =   6480
  709.       TabIndex        =   29
  710.       Top             =   2640
  711.       Width           =   615
  712.    End
  713.    Begin VB.CommandButton btnLoad 
  714.       Caption         =   "Load"
  715.       BeginProperty Font 
  716.          Name            =   "Arial"
  717.          Size            =   8.25
  718.          Charset         =   0
  719.          Weight          =   400
  720.          Underline       =   0   'False
  721.          Italic          =   0   'False
  722.          Strikethrough   =   0   'False
  723.       EndProperty
  724.       Height          =   255
  725.       Index           =   5
  726.       Left            =   5760
  727.       TabIndex        =   28
  728.       Top             =   2640
  729.       Width           =   615
  730.    End
  731.    Begin VB.TextBox txtSoundFile 
  732.       BeginProperty Font 
  733.          Name            =   "Lucida Console"
  734.          Size            =   8.25
  735.          Charset         =   0
  736.          Weight          =   400
  737.          Underline       =   0   'False
  738.          Italic          =   0   'False
  739.          Strikethrough   =   0   'False
  740.       EndProperty
  741.       Height          =   285
  742.       Index           =   5
  743.       Left            =   1680
  744.       TabIndex        =   27
  745.       Text            =   "Hebrew.wav"
  746.       Top             =   2640
  747.       Width           =   3975
  748.    End
  749.    Begin VB.CommandButton btnFree 
  750.       Caption         =   "Free"
  751.       Enabled         =   0   'False
  752.       BeginProperty Font 
  753.          Name            =   "Arial"
  754.          Size            =   8.25
  755.          Charset         =   0
  756.          Weight          =   400
  757.          Underline       =   0   'False
  758.          Italic          =   0   'False
  759.          Strikethrough   =   0   'False
  760.       EndProperty
  761.       Height          =   255
  762.       Index           =   4
  763.       Left            =   7920
  764.       TabIndex        =   25
  765.       Top             =   2280
  766.       Width           =   615
  767.    End
  768.    Begin VB.CommandButton btnStop 
  769.       Caption         =   "Stop"
  770.       Enabled         =   0   'False
  771.       BeginProperty Font 
  772.          Name            =   "Arial"
  773.          Size            =   8.25
  774.          Charset         =   0
  775.          Weight          =   400
  776.          Underline       =   0   'False
  777.          Italic          =   0   'False
  778.          Strikethrough   =   0   'False
  779.       EndProperty
  780.       Height          =   255
  781.       Index           =   4
  782.       Left            =   7200
  783.       TabIndex        =   24
  784.       Top             =   2280
  785.       Width           =   615
  786.    End
  787.    Begin VB.CommandButton btnPlay 
  788.       Caption         =   "Play"
  789.       Enabled         =   0   'False
  790.       BeginProperty Font 
  791.          Name            =   "Arial"
  792.          Size            =   8.25
  793.          Charset         =   0
  794.          Weight          =   400
  795.          Underline       =   0   'False
  796.          Italic          =   0   'False
  797.          Strikethrough   =   0   'False
  798.       EndProperty
  799.       Height          =   255
  800.       Index           =   4
  801.       Left            =   6480
  802.       TabIndex        =   23
  803.       Top             =   2280
  804.       Width           =   615
  805.    End
  806.    Begin VB.CommandButton btnLoad 
  807.       Caption         =   "Load"
  808.       BeginProperty Font 
  809.          Name            =   "Arial"
  810.          Size            =   8.25
  811.          Charset         =   0
  812.          Weight          =   400
  813.          Underline       =   0   'False
  814.          Italic          =   0   'False
  815.          Strikethrough   =   0   'False
  816.       EndProperty
  817.       Height          =   255
  818.       Index           =   4
  819.       Left            =   5760
  820.       TabIndex        =   22
  821.       Top             =   2280
  822.       Width           =   615
  823.    End
  824.    Begin VB.TextBox txtSoundFile 
  825.       BeginProperty Font 
  826.          Name            =   "Lucida Console"
  827.          Size            =   8.25
  828.          Charset         =   0
  829.          Weight          =   400
  830.          Underline       =   0   'False
  831.          Italic          =   0   'False
  832.          Strikethrough   =   0   'False
  833.       EndProperty
  834.       Height          =   285
  835.       Index           =   4
  836.       Left            =   1680
  837.       TabIndex        =   21
  838.       Text            =   "Danish.wav"
  839.       Top             =   2280
  840.       Width           =   3975
  841.    End
  842.    Begin VB.CommandButton btnFree 
  843.       Caption         =   "Free"
  844.       Enabled         =   0   'False
  845.       BeginProperty Font 
  846.          Name            =   "Arial"
  847.          Size            =   8.25
  848.          Charset         =   0
  849.          Weight          =   400
  850.          Underline       =   0   'False
  851.          Italic          =   0   'False
  852.          Strikethrough   =   0   'False
  853.       EndProperty
  854.       Height          =   255
  855.       Index           =   3
  856.       Left            =   7920
  857.       TabIndex        =   19
  858.       Top             =   1920
  859.       Width           =   615
  860.    End
  861.    Begin VB.CommandButton btnStop 
  862.       Caption         =   "Stop"
  863.       Enabled         =   0   'False
  864.       BeginProperty Font 
  865.          Name            =   "Arial"
  866.          Size            =   8.25
  867.          Charset         =   0
  868.          Weight          =   400
  869.          Underline       =   0   'False
  870.          Italic          =   0   'False
  871.          Strikethrough   =   0   'False
  872.       EndProperty
  873.       Height          =   255
  874.       Index           =   3
  875.       Left            =   7200
  876.       TabIndex        =   18
  877.       Top             =   1920
  878.       Width           =   615
  879.    End
  880.    Begin VB.CommandButton btnPlay 
  881.       Caption         =   "Play"
  882.       Enabled         =   0   'False
  883.       BeginProperty Font 
  884.          Name            =   "Arial"
  885.          Size            =   8.25
  886.          Charset         =   0
  887.          Weight          =   400
  888.          Underline       =   0   'False
  889.          Italic          =   0   'False
  890.          Strikethrough   =   0   'False
  891.       EndProperty
  892.       Height          =   255
  893.       Index           =   3
  894.       Left            =   6480
  895.       TabIndex        =   17
  896.       Top             =   1920
  897.       Width           =   615
  898.    End
  899.    Begin VB.CommandButton btnLoad 
  900.       Caption         =   "Load"
  901.       BeginProperty Font 
  902.          Name            =   "Arial"
  903.          Size            =   8.25
  904.          Charset         =   0
  905.          Weight          =   400
  906.          Underline       =   0   'False
  907.          Italic          =   0   'False
  908.          Strikethrough   =   0   'False
  909.       EndProperty
  910.       Height          =   255
  911.       Index           =   3
  912.       Left            =   5760
  913.       TabIndex        =   16
  914.       Top             =   1920
  915.       Width           =   615
  916.    End
  917.    Begin VB.TextBox txtSoundFile 
  918.       BeginProperty Font 
  919.          Name            =   "Lucida Console"
  920.          Size            =   8.25
  921.          Charset         =   0
  922.          Weight          =   400
  923.          Underline       =   0   'False
  924.          Italic          =   0   'False
  925.          Strikethrough   =   0   'False
  926.       EndProperty
  927.       Height          =   285
  928.       Index           =   3
  929.       Left            =   1680
  930.       TabIndex        =   15
  931.       Text            =   "Czech.wav"
  932.       Top             =   1920
  933.       Width           =   3975
  934.    End
  935.    Begin VB.CommandButton btnFree 
  936.       Caption         =   "Free"
  937.       Enabled         =   0   'False
  938.       BeginProperty Font 
  939.          Name            =   "Arial"
  940.          Size            =   8.25
  941.          Charset         =   0
  942.          Weight          =   400
  943.          Underline       =   0   'False
  944.          Italic          =   0   'False
  945.          Strikethrough   =   0   'False
  946.       EndProperty
  947.       Height          =   255
  948.       Index           =   2
  949.       Left            =   7920
  950.       TabIndex        =   13
  951.       Top             =   1560
  952.       Width           =   615
  953.    End
  954.    Begin VB.CommandButton btnStop 
  955.       Caption         =   "Stop"
  956.       Enabled         =   0   'False
  957.       BeginProperty Font 
  958.          Name            =   "Arial"
  959.          Size            =   8.25
  960.          Charset         =   0
  961.          Weight          =   400
  962.          Underline       =   0   'False
  963.          Italic          =   0   'False
  964.          Strikethrough   =   0   'False
  965.       EndProperty
  966.       Height          =   255
  967.       Index           =   2
  968.       Left            =   7200
  969.       TabIndex        =   12
  970.       Top             =   1560
  971.       Width           =   615
  972.    End
  973.    Begin VB.CommandButton btnPlay 
  974.       Caption         =   "Play"
  975.       Enabled         =   0   'False
  976.       BeginProperty Font 
  977.          Name            =   "Arial"
  978.          Size            =   8.25
  979.          Charset         =   0
  980.          Weight          =   400
  981.          Underline       =   0   'False
  982.          Italic          =   0   'False
  983.          Strikethrough   =   0   'False
  984.       EndProperty
  985.       Height          =   255
  986.       Index           =   2
  987.       Left            =   6480
  988.       TabIndex        =   11
  989.       Top             =   1560
  990.       Width           =   615
  991.    End
  992.    Begin VB.CommandButton btnLoad 
  993.       Caption         =   "Load"
  994.       BeginProperty Font 
  995.          Name            =   "Arial"
  996.          Size            =   8.25
  997.          Charset         =   0
  998.          Weight          =   400
  999.          Underline       =   0   'False
  1000.          Italic          =   0   'False
  1001.          Strikethrough   =   0   'False
  1002.       EndProperty
  1003.       Height          =   255
  1004.       Index           =   2
  1005.       Left            =   5760
  1006.       TabIndex        =   10
  1007.       Top             =   1560
  1008.       Width           =   615
  1009.    End
  1010.    Begin VB.TextBox txtSoundFile 
  1011.       BeginProperty Font 
  1012.          Name            =   "Lucida Console"
  1013.          Size            =   8.25
  1014.          Charset         =   0
  1015.          Weight          =   400
  1016.          Underline       =   0   'False
  1017.          Italic          =   0   'False
  1018.          Strikethrough   =   0   'False
  1019.       EndProperty
  1020.       Height          =   285
  1021.       Index           =   2
  1022.       Left            =   1680
  1023.       TabIndex        =   9
  1024.       Text            =   "Bulgarian.wav"
  1025.       Top             =   1560
  1026.       Width           =   3975
  1027.    End
  1028.    Begin VB.CommandButton btnFree 
  1029.       Caption         =   "Free"
  1030.       Enabled         =   0   'False
  1031.       BeginProperty Font 
  1032.          Name            =   "Arial"
  1033.          Size            =   8.25
  1034.          Charset         =   0
  1035.          Weight          =   400
  1036.          Underline       =   0   'False
  1037.          Italic          =   0   'False
  1038.          Strikethrough   =   0   'False
  1039.       EndProperty
  1040.       Height          =   255
  1041.       Index           =   1
  1042.       Left            =   7920
  1043.       TabIndex        =   7
  1044.       Top             =   1200
  1045.       Width           =   615
  1046.    End
  1047.    Begin VB.CommandButton btnStop 
  1048.       Caption         =   "Stop"
  1049.       Enabled         =   0   'False
  1050.       BeginProperty Font 
  1051.          Name            =   "Arial"
  1052.          Size            =   8.25
  1053.          Charset         =   0
  1054.          Weight          =   400
  1055.          Underline       =   0   'False
  1056.          Italic          =   0   'False
  1057.          Strikethrough   =   0   'False
  1058.       EndProperty
  1059.       Height          =   255
  1060.       Index           =   1
  1061.       Left            =   7200
  1062.       TabIndex        =   6
  1063.       Top             =   1200
  1064.       Width           =   615
  1065.    End
  1066.    Begin VB.CommandButton btnPlay 
  1067.       Caption         =   "Play"
  1068.       Enabled         =   0   'False
  1069.       BeginProperty Font 
  1070.          Name            =   "Arial"
  1071.          Size            =   8.25
  1072.          Charset         =   0
  1073.          Weight          =   400
  1074.          Underline       =   0   'False
  1075.          Italic          =   0   'False
  1076.          Strikethrough   =   0   'False
  1077.       EndProperty
  1078.       Height          =   255
  1079.       Index           =   1
  1080.       Left            =   6480
  1081.       TabIndex        =   5
  1082.       Top             =   1200
  1083.       Width           =   615
  1084.    End
  1085.    Begin VB.CommandButton btnLoad 
  1086.       Caption         =   "Load"
  1087.       BeginProperty Font 
  1088.          Name            =   "Arial"
  1089.          Size            =   8.25
  1090.          Charset         =   0
  1091.          Weight          =   400
  1092.          Underline       =   0   'False
  1093.          Italic          =   0   'False
  1094.          Strikethrough   =   0   'False
  1095.       EndProperty
  1096.       Height          =   255
  1097.       Index           =   1
  1098.       Left            =   5760
  1099.       TabIndex        =   4
  1100.       Top             =   1200
  1101.       Width           =   615
  1102.    End
  1103.    Begin VB.TextBox txtSoundFile 
  1104.       BeginProperty Font 
  1105.          Name            =   "Lucida Console"
  1106.          Size            =   8.25
  1107.          Charset         =   0
  1108.          Weight          =   400
  1109.          Underline       =   0   'False
  1110.          Italic          =   0   'False
  1111.          Strikethrough   =   0   'False
  1112.       EndProperty
  1113.       Height          =   285
  1114.       Index           =   1
  1115.       Left            =   1680
  1116.       TabIndex        =   3
  1117.       Text            =   "Ukrainian.wav"
  1118.       Top             =   1200
  1119.       Width           =   3975
  1120.    End
  1121.    Begin VB.CommandButton btnFreeAll 
  1122.       Caption         =   "Free All Sounds"
  1123.       BeginProperty Font 
  1124.          Name            =   "Arial"
  1125.          Size            =   8.25
  1126.          Charset         =   0
  1127.          Weight          =   400
  1128.          Underline       =   0   'False
  1129.          Italic          =   0   'False
  1130.          Strikethrough   =   0   'False
  1131.       EndProperty
  1132.       Height          =   375
  1133.       Left            =   120
  1134.       TabIndex        =   1
  1135.       Top             =   600
  1136.       Width           =   1455
  1137.    End
  1138.    Begin VB.CommandButton btnStopAll 
  1139.       Caption         =   "Stop All Sounds"
  1140.       BeginProperty Font 
  1141.          Name            =   "Arial"
  1142.          Size            =   8.25
  1143.          Charset         =   0
  1144.          Weight          =   400
  1145.          Underline       =   0   'False
  1146.          Italic          =   0   'False
  1147.          Strikethrough   =   0   'False
  1148.       EndProperty
  1149.       Height          =   375
  1150.       Left            =   120
  1151.       TabIndex        =   0
  1152.       Top             =   120
  1153.       Width           =   1455
  1154.    End
  1155.    Begin VB.Label lblStatus 
  1156.       Alignment       =   2  'Center
  1157.       BorderStyle     =   1  'Fixed Single
  1158.       Caption         =   "Empty"
  1159.       BeginProperty Font 
  1160.          Name            =   "Arial"
  1161.          Size            =   8.25
  1162.          Charset         =   0
  1163.          Weight          =   400
  1164.          Underline       =   0   'False
  1165.          Italic          =   0   'False
  1166.          Strikethrough   =   0   'False
  1167.       EndProperty
  1168.       ForeColor       =   &H00808080&
  1169.       Height          =   255
  1170.       Index           =   10
  1171.       Left            =   120
  1172.       TabIndex        =   62
  1173.       Top             =   4440
  1174.       Width           =   1455
  1175.    End
  1176.    Begin VB.Label lblStatus 
  1177.       Alignment       =   2  'Center
  1178.       BorderStyle     =   1  'Fixed Single
  1179.       Caption         =   "Empty"
  1180.       BeginProperty Font 
  1181.          Name            =   "Arial"
  1182.          Size            =   8.25
  1183.          Charset         =   0
  1184.          Weight          =   400
  1185.          Underline       =   0   'False
  1186.          Italic          =   0   'False
  1187.          Strikethrough   =   0   'False
  1188.       EndProperty
  1189.       ForeColor       =   &H00808080&
  1190.       Height          =   255
  1191.       Index           =   9
  1192.       Left            =   120
  1193.       TabIndex        =   56
  1194.       Top             =   4080
  1195.       Width           =   1455
  1196.    End
  1197.    Begin VB.Label lblStatus 
  1198.       Alignment       =   2  'Center
  1199.       BorderStyle     =   1  'Fixed Single
  1200.       Caption         =   "Empty"
  1201.       BeginProperty Font 
  1202.          Name            =   "Arial"
  1203.          Size            =   8.25
  1204.          Charset         =   0
  1205.          Weight          =   400
  1206.          Underline       =   0   'False
  1207.          Italic          =   0   'False
  1208.          Strikethrough   =   0   'False
  1209.       EndProperty
  1210.       ForeColor       =   &H00808080&
  1211.       Height          =   255
  1212.       Index           =   11
  1213.       Left            =   120
  1214.       TabIndex        =   50
  1215.       Top             =   4800
  1216.       Width           =   1455
  1217.    End
  1218.    Begin VB.Label lblStatus 
  1219.       Alignment       =   2  'Center
  1220.       BorderStyle     =   1  'Fixed Single
  1221.       Caption         =   "Empty"
  1222.       BeginProperty Font 
  1223.          Name            =   "Arial"
  1224.          Size            =   8.25
  1225.          Charset         =   0
  1226.          Weight          =   400
  1227.          Underline       =   0   'False
  1228.          Italic          =   0   'False
  1229.          Strikethrough   =   0   'False
  1230.       EndProperty
  1231.       ForeColor       =   &H00808080&
  1232.       Height          =   255
  1233.       Index           =   8
  1234.       Left            =   120
  1235.       TabIndex        =   44
  1236.       Top             =   3720
  1237.       Width           =   1455
  1238.    End
  1239.    Begin VB.Label lblStatus 
  1240.       Alignment       =   2  'Center
  1241.       BorderStyle     =   1  'Fixed Single
  1242.       Caption         =   "Empty"
  1243.       BeginProperty Font 
  1244.          Name            =   "Arial"
  1245.          Size            =   8.25
  1246.          Charset         =   0
  1247.          Weight          =   400
  1248.          Underline       =   0   'False
  1249.          Italic          =   0   'False
  1250.          Strikethrough   =   0   'False
  1251.       EndProperty
  1252.       ForeColor       =   &H00808080&
  1253.       Height          =   255
  1254.       Index           =   7
  1255.       Left            =   120
  1256.       TabIndex        =   38
  1257.       Top             =   3360
  1258.       Width           =   1455
  1259.    End
  1260.    Begin VB.Label lblStatus 
  1261.       Alignment       =   2  'Center
  1262.       BorderStyle     =   1  'Fixed Single
  1263.       Caption         =   "Empty"
  1264.       BeginProperty Font 
  1265.          Name            =   "Arial"
  1266.          Size            =   8.25
  1267.          Charset         =   0
  1268.          Weight          =   400
  1269.          Underline       =   0   'False
  1270.          Italic          =   0   'False
  1271.          Strikethrough   =   0   'False
  1272.       EndProperty
  1273.       ForeColor       =   &H00808080&
  1274.       Height          =   255
  1275.       Index           =   6
  1276.       Left            =   120
  1277.       TabIndex        =   32
  1278.       Top             =   3000
  1279.       Width           =   1455
  1280.    End
  1281.    Begin VB.Label lblStatus 
  1282.       Alignment       =   2  'Center
  1283.       BorderStyle     =   1  'Fixed Single
  1284.       Caption         =   "Empty"
  1285.       BeginProperty Font 
  1286.          Name            =   "Arial"
  1287.          Size            =   8.25
  1288.          Charset         =   0
  1289.          Weight          =   400
  1290.          Underline       =   0   'False
  1291.          Italic          =   0   'False
  1292.          Strikethrough   =   0   'False
  1293.       EndProperty
  1294.       ForeColor       =   &H00808080&
  1295.       Height          =   255
  1296.       Index           =   5
  1297.       Left            =   120
  1298.       TabIndex        =   26
  1299.       Top             =   2640
  1300.       Width           =   1455
  1301.    End
  1302.    Begin VB.Label lblStatus 
  1303.       Alignment       =   2  'Center
  1304.       BorderStyle     =   1  'Fixed Single
  1305.       Caption         =   "Empty"
  1306.       BeginProperty Font 
  1307.          Name            =   "Arial"
  1308.          Size            =   8.25
  1309.          Charset         =   0
  1310.          Weight          =   400
  1311.          Underline       =   0   'False
  1312.          Italic          =   0   'False
  1313.          Strikethrough   =   0   'False
  1314.       EndProperty
  1315.       ForeColor       =   &H00808080&
  1316.       Height          =   255
  1317.       Index           =   4
  1318.       Left            =   120
  1319.       TabIndex        =   20
  1320.       Top             =   2280
  1321.       Width           =   1455
  1322.    End
  1323.    Begin VB.Label lblStatus 
  1324.       Alignment       =   2  'Center
  1325.       BorderStyle     =   1  'Fixed Single
  1326.       Caption         =   "Empty"
  1327.       BeginProperty Font 
  1328.          Name            =   "Arial"
  1329.          Size            =   8.25
  1330.          Charset         =   0
  1331.          Weight          =   400
  1332.          Underline       =   0   'False
  1333.          Italic          =   0   'False
  1334.          Strikethrough   =   0   'False
  1335.       EndProperty
  1336.       ForeColor       =   &H00808080&
  1337.       Height          =   255
  1338.       Index           =   3
  1339.       Left            =   120
  1340.       TabIndex        =   14
  1341.       Top             =   1920
  1342.       Width           =   1455
  1343.    End
  1344.    Begin VB.Label lblStatus 
  1345.       Alignment       =   2  'Center
  1346.       BorderStyle     =   1  'Fixed Single
  1347.       Caption         =   "Empty"
  1348.       BeginProperty Font 
  1349.          Name            =   "Arial"
  1350.          Size            =   8.25
  1351.          Charset         =   0
  1352.          Weight          =   400
  1353.          Underline       =   0   'False
  1354.          Italic          =   0   'False
  1355.          Strikethrough   =   0   'False
  1356.       EndProperty
  1357.       ForeColor       =   &H00808080&
  1358.       Height          =   255
  1359.       Index           =   2
  1360.       Left            =   120
  1361.       TabIndex        =   8
  1362.       Top             =   1560
  1363.       Width           =   1455
  1364.    End
  1365.    Begin VB.Label lblStatus 
  1366.       Alignment       =   2  'Center
  1367.       BorderStyle     =   1  'Fixed Single
  1368.       Caption         =   "Empty"
  1369.       BeginProperty Font 
  1370.          Name            =   "Arial"
  1371.          Size            =   8.25
  1372.          Charset         =   0
  1373.          Weight          =   400
  1374.          Underline       =   0   'False
  1375.          Italic          =   0   'False
  1376.          Strikethrough   =   0   'False
  1377.       EndProperty
  1378.       ForeColor       =   &H00808080&
  1379.       Height          =   255
  1380.       Index           =   1
  1381.       Left            =   120
  1382.       TabIndex        =   2
  1383.       Top             =   1200
  1384.       Width           =   1455
  1385.    End
  1386. End
  1387. Attribute VB_Name = "DemoWindow"
  1388. Attribute VB_GlobalNameSpace = False
  1389. Attribute VB_Creatable = False
  1390. Attribute VB_PredeclaredId = True
  1391. Attribute VB_Exposed = False
  1392. Option Explicit
  1393.  
  1394. Implements SoundManagerNotifier
  1395.  
  1396. Private Sub btnLoadAll_Click()
  1397.     Dim i As Integer
  1398.     On Error Resume Next
  1399.     For i = btnLoad.LBound To btnLoad.UBound
  1400.         If btnLoad(i).Enabled Then btnLoad_Click i
  1401.     Next
  1402. End Sub
  1403.  
  1404. Private Sub btnPlayAll_Click()
  1405.     Dim i As Integer
  1406.     On Error Resume Next
  1407.     For i = btnPlay.LBound To btnPlay.UBound
  1408.         If btnPlay(i).Enabled Then btnPlay_Click i
  1409.     Next
  1410. End Sub
  1411.  
  1412. Private Sub btnStopAll_Click()
  1413.     SoundManager.StopSound ALL_SOUND_BUFFERS
  1414. End Sub
  1415.  
  1416. Private Sub btnFreeAll_Click()
  1417.     SoundManager.FreeSound ALL_SOUND_BUFFERS
  1418. End Sub
  1419.  
  1420. Private Sub btnFree_Click(Index As Integer)
  1421.     SoundManager.FreeSound Index
  1422. End Sub
  1423.  
  1424. Private Sub btnLoad_Click(Index As Integer)
  1425.     SoundManager.LoadSoundFile Index, App.Path & "\Sounds\" & txtSoundFile(Index).Text
  1426. End Sub
  1427.  
  1428. Private Sub btnPlay_Click(Index As Integer)
  1429.     SoundManager.PlaySound Index
  1430. End Sub
  1431.  
  1432. Private Sub btnStop_Click(Index As Integer)
  1433.     SoundManager.StopSound Index
  1434. End Sub
  1435.  
  1436. Private Sub btnInstantSound_Click()
  1437.     ' Instantly load, play and free a sound using the first available buffer
  1438.     ' No notification is required
  1439.     SoundManager.LoadSoundFile SoundManager.FreeBuffer, App.Path & "\Sounds\Oshppis3.wav", BufferFlagInstant
  1440. End Sub
  1441.  
  1442. Private Sub Form_Load()
  1443.     Set SoundManager.Notifier = Me
  1444. End Sub
  1445.  
  1446. Private Sub Form_Unload(Cancel As Integer)
  1447.     ' Very, Very Important. This MUST be called or a crash is inevitable
  1448.     SoundManager.DestroySoundManager
  1449. End Sub
  1450.  
  1451. Private Sub SoundManagerNotifier_SoundLoaded(ByVal BufferIndex As Long)
  1452.     With lblStatus(BufferIndex)
  1453.         .Caption = "Loaded"
  1454.         .ForeColor = vbBlue
  1455.     End With
  1456.     
  1457.     btnFree(BufferIndex).Enabled = True
  1458.     btnLoad(BufferIndex).Enabled = True
  1459.     btnPlay(BufferIndex).Enabled = True
  1460.     btnStop(BufferIndex).Enabled = False
  1461. End Sub
  1462.  
  1463. Private Sub SoundManagerNotifier_SoundPlayEnd(ByVal BufferIndex As Long)
  1464.     With lblStatus(BufferIndex)
  1465.         .Caption = "Stopped"
  1466.         .ForeColor = vbBlue
  1467.     End With
  1468.     
  1469.     btnFree(BufferIndex).Enabled = True
  1470.     btnLoad(BufferIndex).Enabled = True
  1471.     btnPlay(BufferIndex).Enabled = True
  1472.     btnStop(BufferIndex).Enabled = False
  1473. End Sub
  1474.  
  1475. Private Sub SoundManagerNotifier_SoundPlayStart(ByVal BufferIndex As Long)
  1476.     With lblStatus(BufferIndex)
  1477.         .Caption = "Playing"
  1478.         .ForeColor = vbGreen
  1479.     End With
  1480.     
  1481.     btnFree(BufferIndex).Enabled = True
  1482.     btnLoad(BufferIndex).Enabled = True
  1483.     btnPlay(BufferIndex).Enabled = False
  1484.     btnStop(BufferIndex).Enabled = True
  1485. End Sub
  1486.  
  1487. Private Sub SoundManagerNotifier_SoundUnloaded(ByVal BufferIndex As Long)
  1488.     With lblStatus(BufferIndex)
  1489.         .Caption = "Empty"
  1490.         .ForeColor = RGB(127, 127, 127)
  1491.     End With
  1492.     
  1493.     btnFree(BufferIndex).Enabled = False
  1494.     btnLoad(BufferIndex).Enabled = True
  1495.     btnPlay(BufferIndex).Enabled = False
  1496.     btnStop(BufferIndex).Enabled = False
  1497. End Sub
  1498.