Anonymous

Public Class ccTalkControl
    Inherits System.Windows.Forms.UserControl
    Private miMoney As String

    Public Property money() As Integer
        Get
            Return miMoney
        End Get
        Set(ByVal iMoney As Integer)
            miMoney = iMoney
            lblMoney.Text = miMoney + ":00"
        End Set
    End Property

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

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