Public Class Form1
 
       Dim isbinded As Boolean = False
       Dim Winamp As clsWACC = New clsWACC
       Dim WithEvents mytimer As New Timer With {.Interval = 50, .Enabled = True}
 
       Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles mytimer.Tick
           isbinded = Winamp.Bind()
           ' Label1.Text = isbinded
           ' isbinded = Nothing
       End Sub
 
    End Class

str = "LA_++L+UC+HA_P+OR_EL_AMOR"
str = FormatString(str)      ' Llamamos a la función que formatea el String.
str = ConvertToWordCase(str) ' Llamamos a la función que convierte el String a ProperCase.
Wscript.Echo str             ' Mostramos el String.
Wscript.Quit()               ' Terminamos la ejecución del script.
 
' Funcs:
' ------
Function FormatString(ByVal String)
	String = replace(String, "+","")  ' Reemplazo el caracter "+" por NADA.
	String = replace(String, "_"," ") ' Reemplazo el caracter "_" por ESPACIO.
	FormatString    = String          ' Devuelvo el String formateado.
End Function
 
Function ConvertToWordCase(ByVal String)
	words = split(String," ") ' Parto el String en varios tokens delimitados por el caracter ESPACIO y lo guardo en un Array.
 
	For i = 0 to ubound(words) ' Recorro cada valor del Array, es decir, cada palabra.
		' Convierto la primera letra a UpperCase.
		words(i) = ucase(left(words(i),1)) _
			 & lcase(mid(words(i),2)) ' Y convierto las demás letras a LowerCase.
	Next ' Prosigo con la siguiente palabra.
 
	ConvertToWordCase = join(words," ") ' Junto el Array (Lo convierto a String) y lo devuelvo.
End Function

La Lucha Por El Amor

Pero en principio te puedes fijar si tiene un evento, solo es poner punto en el nombre de instancia de clase y buscar el que tiene un "rayito"

    Private Sub waProcess_Exited(ByVal sender As Object, ByVal e As EventArgs) Handles waProcess.Exited
        RaiseEvent WinampExited()
    End Sub

    Private Sub Exited() Handles Winamp.WinampExited
        Winamp_IsRunning = False
    End Sub
 
    Private Sub Monitor_Timer_Tick(sender As Object, e As EventArgs) Handles Monitor_Timer.Tick
        If Not Winamp_IsRunning Then Winamp_IsRunning = Winamp.Bind()
    End sub
 

Dim WinampIsRunning = winamp.bind() ' Esto devuelve True si el proceso de Winamp se está ejecutando
 
If WinampIsRunning then
 
    if winamp.state = winamp.state.Paused then...
    ' actualizar posición del trackbar, labels, textboxes, etc...
 
    elseif winamp.state = winamp.state.Paused then...
 
    elseif winamp.state = winamp.state.Stoped then...
 
end if