Public Class Form1

   Private fNumber As Integer

   Public Property Number() As Integer
       Get
           Return fNumber
       End Get
       Set(ByVal value As Integer)
           fNumber = value
       End Set
   End Property
 
   Private Sub ThreadCCode()
       While True
           Text = "sddf"
           Tag = 7
       End While
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Dim threadC As New Threading.Thread(AddressOf ThreadCCode)
      threadC.Start()
   End Sub
End Class