ReadOnly Property CaptureForm() As Boolean
        Get
            Return Capturar_DropDownButton.Tag
        End Get
    End Property
 
    Private Sub Capturar_DropDownItems_Click(sender As Object, e As EventArgs) Handles _
        SiCapturar.Click, _
        NoCapturar.Click
 
        Capturar_DropDownButton.Tag = sender.tag
 
    End Sub
 

' Setear diréctamente:
Private MyPoint As New Point(0, 8)
 
Private Sub blabla()
 
   MyPoint.X = 257
 
End Sub

' Comprobar, y si la condición no se cumple, setear:
Private MyPoint As New Point(0, 8)
 
Private Sub blabla()
 
    If Not MyPoint.X = 257 Then MyPoint.X = 257
 
End Sub

Mybase.Opacity = 

Mybase.WindowState = 

    ReadOnly Property CaptureForm() As Boolean
        Get
            Return CheckBox1.Checked
        End Get
    End Property

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) _
    Handles CheckBox1.CheckedChanged
        MsgBox(Me.CaptureForm)
    End Sub

    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