Public Class Baloon
    Private x, y, dia As Integer
    Dim myPen As Pen = New Pen(Color.DarkBlue)
    Public Sub New()
        x = 50
        y = 50
        dia = 20
    End Sub

    Public Sub New(ByVal xval As Integer, ByVal yval As Integer, ByVal diaval As Integer)
        x = xval
        y = yval
        dia = diaval
    End Sub

    Public Sub MoveRight(ByVal xStep As Integer)
        x = x + xStep
    End Sub

    Public Sub ChangeSize(ByVal change As Integer)
        dia = dia + change
    End Sub

    Public Sub Display(ByVal dA As Graphics)
        dA.DrawEllipse(myPen, x, y, dia, dia)
    End Sub

End Class