Original: Sub Timer1_Tick (ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.
Simplified: Public Sub button1_Click (ByVal sender As System. Object, ByVal e As System.