¿Esto es una CheckBox?

¿Este código es para colocar mensajes en el programa?

MessageBox.Show()

¿Es un Progress Bar?

El siguiente código sirve para resolver ecuaciones de 3 variables?

Dim x, y, z, r As Double
x = TexBox1.Text
y = TexBox2.Text
z = TexBox3.Text
r = ((2 * Math.Pow(x, 4)) + 3 * Math.Pow(x, 2) * Math.Pow(y, 2)) / (y+(Math.Sqrt(4 * x * y * Math.Pow(z, 2))) - 2 * z)
TexBox4.Text = r

El siguiente fragmento de código sirve para cambiar de color el formulario;

If Me.BackColor = Color.Blue Then
Me.BackColor = Color.Red
ElseIf Me.BackColor = Color.Red Then
Me.BackColor = Color.Blue

¿El siguiente código sirve para calcular promedios y eliminar la nota menor?

Dim n1, n2, n3, n4, v, p As Double
n1 = TextBox1.Text
n2 = TextBox2.Text
n3 = TextBox3.Text
n4 = TextBox4.Text
v = n1
If n2 < v Then
v = n2
End If
If n3 < v Then
v = n3
End If
If n4 < v Then
v = n4
End If
p = (n1 + n2 + n3 + n4 - v) / 3
TextBox5.Text = p

¿Está bien estructurado este código?

Dim n1, n2 As Doublen1 = TextBox1.Text
n2 = TextBox2.Text
If n1 > n2 Then
MessageBox.Show("El número mayor es "& n1)
Else
MessageBox.Show("El número mayor es "& n2)
End If

¿El siguiente código esta bien estructurado?

Dim C As Intinger
C = 0
If CheckBox1.Checked
C = C + 1
CheckBox2.Checked Then
C = C + 1
End If
If CheckBox3.Checked Then
C = C + 1
MessageBox.Show("Han sido seleccionados " + Strc(C) + " checkbox")
End If