Pythagore en VBnet

Bonjour,

j'essaye de coder le théorème de Pythagore en VBnet mais j'ai un petit soucis, quand je compile j'ai une erreur : La conversion de la chaîne "AB² =" en type 'Double' n'est pas valide.

Voici mon code :

Public Class Form2

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ab As Integer
Dim bc As Integer
Dim ac As Integer
Dim ab2 As Integer
Dim bc2 As Integer
Dim ac2 As Integer
Dim abbc As Integer
Dim abac As Integer
Dim bcac As Integer

ab = Val(TextBox1.Text)
bc = Val(TextBox2.Text)
ac = Val(TextBox3.Text)


ab2 = ab ^ 2
bc2 = bc ^ 2
ac2 = ac ^ 2
abbc = ab2 + bc2
abac = ab2 + ac2
bcac = bc2 + ac2


If Math.Max(ab, bc) = ab Then
If Math.Max(ab, ac) = ab Then

Label2.Text = "AB² =" + ab + "²"
Label3.Text = "AB²=" + ab2
Label5.Text = "BC²+AC²=" + bc + "²" + ac + "²"
Label6.Text = "BC²+AC²=" + bc2 + ac2
Label7.Text = "BC²+AC²=" + bcac
Label8.Text = "AB² = BC² + AC²"
Label9.Text = "D'après la réciproque du théorème de Pythagore, le triangle est rectangle en C"




End If

End If




End Sub
End Class


Merci !