cara mendeteksi perubahan variabel (variable change) pada Visual Basic 2010

Kali ini kita akan membahas visual basic, hal yang jarang kita tau adalah ketika terdapat sebuah variabel dan kita akan mendeteksi setiap variabel tersebut mengalami perubahan. biasanya yang bisa kita ketahui setiap perubahannya adalah label, tombol dan berbagai objek.
nah tanpa basa basi lagi caranya adalah kita buat variabel tersebut menjadi sebuah event sebagai berikut :

ketikan program diatas. program diatas diketik diatas class form atau dibawahnya tapi jangan didalamnya.

Public Class myVar
    Private rubahvariabel As Integer = 1
    Public Event VariableChanged(ByVal rubahvariabel As Integer)
    Public Property Variable() As Integer
        Get
            Variable = rubahvariabel
        End Get
        Set(ByVal value As Integer)
            rubahvariabel = value
            RaiseEvent VariableChanged(rubahvariabel)
        End Set
    End Property
End Class

setelah itu didalam form kita akan buat sebuah variabel yang akan dideteksi perubahannya. ketik program berikut :

dari gambar diatas variabel yang saya deteksi perubahannya adalah variabel bernama "test" untuk membuktikan terdapat perubahan atau tidak saya menggunakan check box yang saya beri nama b2. b2 akan mengganti nilai variabel test.

Private WithEvents test As New myVar
    Private Sub b2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If b2.Checked = True Then
            test.Variable = test.Variable + 1

        Else
            test.Variable = test.Variable - 1

        End If
    End Sub

    Private Sub VariableChanged(ByVal NewValue As Integer) Handles test.VariableChanged

        Label3.Text = test.Variable

    End Sub

dan pada private sub variablechanged kita akan mencetak nilai variabel testnya jika berhasil maka test variabel akan tercetak pada label 3.