Delegate Sub delCheckCross(ByVal x As Integer, ByVal y As Integer)
    Private Sub thCheckCross_start()
        Dim delInstance As New delCheckCross(AddressOf Me.CheckRightCross)
                Dim x As Integer = 1
                Dim y As Integer = 2
                Me.Invoke(delInstance, New Object() {x, y})
    end sub