Создать событие onchange на изменение переменной

Public Class Form1
    Dim переменная As Object
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tmp = переменная 'заносим нашу переменную во временную
        a1.Start() 'запускаем поток с вечным циклом
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        переменная = (New Random).Next(0, 1000000000) 'генерируем случайное число, тем самым изменяя значение переменной
    End Sub
 
 
 
    Public Event changemy()
    Private Sub переменная_change() Handles Me.changemy
        MsgBox("Значение переменной ""переменная"" изменилось!")
    End Sub
    Dim a1 As New Threading.Thread(AddressOf wait)
    Dim tmp As Object
    Delegate Sub invoker()
    Sub invokermy()
        RaiseEvent changemy()
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        a1.Abort()
    End Sub
    Sub wait()
        Do
            If Not tmp = переменная Then
                tmp = переменная
                Dim a1 As New invoker(AddressOf invokermy)
                Me.Invoke(a1)
            End If
        Loop
    End Sub
End Class

Public Class Form1
 
    Dim WithEvents NewVar As New MyVariable(Of String)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewVar.Value = Date.Now.ToString
    End Sub
    
 
    Private Sub NewVar_OnChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles NewVar.OnChange
        MsgBox(NewVar.Value.ToString)
    End Sub
End Class
 
Friend Class MyVariable(Of T)
    Private pvalue As T
    Friend Event OnChange(ByVal sender As Object, ByVal e As System.EventArgs)
    Friend Property Value() As T
        Get
            Return pvalue
        End Get
        Set(ByVal value As T)
            pvalue = value
            RaiseEvent OnChange(Me, New System.EventArgs)
        End Set
    End Property
End Class

Public Class Form1
 
    Dim WithEvents NewVar As New MyVariable(Of String)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewVar.Value = Date.Now.ToString
    End Sub
    
 
    Private Sub NewVar_OnChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles NewVar.OnChange
        MsgBox(NewVar.Value.ToString)
    End Sub
End Class
 
Friend Class MyVariable(Of T)
    Private pvalue As T
    Friend Event OnChange(ByVal sender As Object, ByVal e As System.EventArgs)
    Friend Property Value() As T
        Get
            Return pvalue
        End Get
        Set(ByVal value As T)
if not pvalue.equals (value) then
 pvalue = value
            RaiseEvent OnChange(Me, New System.EventArgs)
end if
            End Set
    End Property
End Class

Public Sub order_OnChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles 1.OnChange, 2.OnChange
        If 1.Value = "16" And 2.Value <= -60 Then
            Call Sub(процедура)
        End If
    End Sub

1.value = 16
2.value = -20

1.value =15