1_A_VB

Public Class Form1

    Private rnd As Random = New Random()
    'Green Ball
    Private ball1Size As Integer = 50
    Private ball1PosX As Integer
    Private ball1PosY As Integer
    Private step1X As Integer
    Private step1Y As Integer
    'Red Ball
    Private ball2Size As Integer = 100
    Private ball2PosX As Integer
    Private ball2PosY As Integer
    Private step2X As Integer
    Private step2Y As Integer

    Public Sub New()
        InitializeComponent()

        'Green Ball random starting point and Stepping
        ball1PosX = rnd.[Next](0, Me.Panel1.Width - ball1Size)
        ball1PosY = rnd.[Next](0, Me.Panel1.Height - ball1Size)
        step1X = rnd.Next(1, 5)
        step1Y = rnd.Next(1, 5)
        'Red Ball random starting point and Stepping
        ball2PosX = rnd.[Next](0, Me.Panel1.Width - ball2Size)
        ball2PosY = rnd.[Next](0, Me.Panel1.Height - ball2Size)
        step2X = rnd.Next(-5, -1)
        step2Y = rnd.Next(-5, -1)
    End Sub

    Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button.Click
        RichTextBox1.Text = "Some Text HERE"
    End Sub

    Private Sub Animate_Click(sender As Object, e As EventArgs) Handles Animate.Click
        Me.Timer1.Enabled = True
    End Sub

    Private Sub Paint_Circle(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
        e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.Clear(Me.BackColor)
        'Green Ball
        e.Graphics.FillEllipse(Brushes.Green, ball1PosX, ball1PosY, ball1Size, ball1Size)
        e.Graphics.DrawEllipse(Pens.Black, ball1PosX, ball1PosY, ball1Size, ball1Size)
        'Red Ball
        e.Graphics.FillEllipse(Brushes.Red, ball2PosX, ball2PosY, ball2Size, ball2Size)
        e.Graphics.DrawEllipse(Pens.Black, ball2PosX, ball2PosY, ball2Size, ball2Size)
    End Sub

    Private Sub MoveBall(sender As Object, e As EventArgs) Handles Timer1.Tick

        'Green Ball Update position
        ball1PosX += step1X
        If ball1PosX < 0 OrElse ball1PosX + ball1Size > Me.Panel1.Width Then
            step1X = -step1X
        End If

        ball1PosY += step1Y
        If ball1PosY < 0 OrElse ball1PosY + ball1Size > Me.Panel1.Height Then
            step1Y = -step1Y
        End If

        'Green Ball Update position
        ball2PosX += step2X
        If ball2PosX < 0 OrElse ball2PosX + ball2Size > Me.Panel1.Width Then
            step2X = -step2X
        End If

        ball2PosY += step2Y
        If ball2PosY < 0 OrElse ball2PosY + ball2Size > Me.Panel1.Height Then
            step2Y = -step2Y
        End If

        'Refresh Balls
        Me.Panel1.Refresh()
    End Sub
End Class