I told you that i had modified that code to produce a good looking audio level indicator using bitmaps looking like LED's.
If you want to do so make a bitmap containing as many bars as you want starting form bar one showing only one LEd glowing and the last bar showing all LED's glowing. Paint it in green or so. Now use a Picture Clip control on your form (project refrences) now add a picture box to the form and also the bitmap tht you have prepared. Set the followng properties of the clipcontrol in the form load sub. in the same project of Microsoft. Remove the code for progress bar, but not the entire code!(clpBar is the name of my picture clip control, imgGreen is the name of the bitmap.)

Dim a As Long

Private sub Form_Load()
clpBar.Cols = 42
clpBar = imgGreen
Timer1.Interval = 80
Image1.visible= False
End sub

Private Sub Timer1_Timer()

On Error Resume Next

' Get the current output level
mxcd.dwControlID = outputVolCtrl.dwControlID
mxcd.item = outputVolCtrl.cMultipleItems
rc = mixerGetControlDetails(hmixer,mxcd,MIXER_GETCONTROLDETAILSF_VALUE)
CopyStructFromPtr volume, mxcd.paDetails, Len(volume)
If volume = 0 Then
a = 0
Else
a = Log(volume) * 3 ' (I have just written this formula on trial and error basis for smooth animation)
End If
If a > 41 Then a = 41 'Since my bitmap has 41 vertical bars
picBar1 = clpBar.GraphicCell(a)
End sub


I hope this will help you. Note that the distance between the bars in bitmap should be equal or you'll not get proper animation.

Good Luck.
Kinjal.

I had asked for a tutorial on spectrum analyzer and now someone is asking me to give tutorial on audio level indiator. Ha ha ha.... Never mind!