Ejercicios de programación .net (nivel inicial)

Utilizando un Módulo
Public Class Form3
Private Sub MenúPrincipalToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MenúPrincipalToolStripMenuItem.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub SalirToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
SalirToolStripMenuItem.Click
End
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
u = Label1()
c = Label2()
d = Label3
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
animacion()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Label7.Text = Val(TextBox1.Text) * 4
Label8.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
End Sub
End Class
Leonel Navarrete