VB .NET - simulador que calcula a mensalidades com os seguintes parâmetros: SOCIO E DEPENDENTES

Olá, usando a programação orientada a objetos eu fiz um simulador que calcula a mensalidades com os seguintes parâmetros: SOCIO E DEPENDENTES.

Segue logo abaixo o código fonte do programa.

CLASSE MENSALIDADES

Public Class mensalidades

    Private id_socio As Integer

    Private nome_socio As String

    Private qtd_dependentes As Integer

    Public Property id() As Integer

        Get

            Return id_socio

        End Get

        Set(ByVal value As Integer)

            id_socio = value

        End Set

    End Property

    Public Property nome() As String

        Get

            Return nome_socio

        End Get

        Set(ByVal value As String)

            nome_socio = value

        End Set

    End Property

    Public Property qtd() As Integer

        Get

            Return qtd_dependentes

        End Get

        Set(ByVal value As Integer)

            qtd_dependentes = value

        End Set

    End Property

    Public Function valor_mensalidade() As Double

        'nenhum dependente

        If (qtd = 0) Then

            qtd = 40

            'com 1 a 3 dependente

        ElseIf (qtd >= 1) And (qtd <= 3) Then

            qtd = (qtd * 15) + 40

            'com 4 a 10 dependente

        ElseIf (qtd >= 4) And (qtd <= 10) Then

            qtd = (qtd * 15) + 40

            'com mais de 10 dependente

        ElseIf (qtd > 10) Then

            qtd = 150

        End If

        Return qtd

    End Function

End Class

FORMULÁRIO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim m As New mensalidades

        m.id = TextBox1.Text

        m.nome = TextBox2.Text

        m.qtd = TextBox3.Text

        TextBox4.Text = Format(m.valor_mensalidade, "###,##0.00")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

End Class

Espero ter ajudado e até a próxima. =)