Public Interface IPublic
    Property money() As Integer
End Interface

Public Class ccTalkControl
    Implements IPublic

    Private miMoney As Integer

    Private Sub tmrMoney_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrMoney.Tick
        miMoney = miMoney + 1
        lblMoney.Text = (miMoney.ToString() & ":00")
    End Sub

    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        miMoney = 0
    End Sub

    Public Property money() As Integer Implements IPublic.money
        Get
            Return miMoney
        End Get
        Set(ByVal value As Integer)
            miMoney = value
            lblMoney.Text = (miMoney.ToString() & ":00")
        End Set
    End Property
End Class