Engineering Tube

Code: Public Class Form1     Private g As Graphics     'Private xPosition As Integer     Private yposition As Integer    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Height = 550         Me.Width = 800         Me.Show()         g = Me.CreateGraphics         Me.BackColor = Color.Aquamarine         Timer3.Start()     End Sub   Private Sub DrawNewRectangle1(ByVal y As Integer, ByVal x As Integer)   REM DOOR OPENING RECTANGLE         Me.Refresh()         g.DrawRectangle(Pens.Black, 130, 50, 543, 400)         g.FillRectangle(Brushes.Orchid, 130, 50, y, 400)         g.FillEllipse(Brushes.Green, 7, 184, 30, 30)         g.DrawRectangle(Pens.Black,...

Form Design. Code: Public Class Form1     Private g As Graphics     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         g = Me.CreateGraphics()         Me.BackColor = Color.White     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Timer1.Start()     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Timer1.Stop()     End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Timer2.Start()         Timer3.Start()     End Sub     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As Sy...