Public Class frmServer
Dim myShareValues As New ShareValues
Dim Counter As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
  Counter += 1
  myShareValues.Counter = Counter
  lblCounter.Text = Counter.ToString
End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
  Me.Timer1.Interval = 1000
  Me.Timer1.Enabled = True
End Sub
End Class

Public Class ShareValues
Private _Counter As Int32 = 0
  Public Property Counter() As Int32
    Get
      Trace.Write("Server: Read Counter")
      Return _Counter
    End Get
    Set(ByVal value As Int32)
      _Counter = value
    End Set
  End Property
End Class

Public Class frmClient
  Private myServer As Server.ShareValues
  Private tryCount As Integer = 0
 
  Private Sub cmdReadServer_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles cmdReadServer.Click
    Me.lblResult.Text = myServer.Counter.ToString
    tryCount += 1
    Me.lblTryCount.Text = tryCount.ToString
  End Sub
 
End Class