Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  Dim y1 As Double = CDbl(TextBox1.Text)
  Dim y2 As Double = CDbl(TextBox2.Text)
  Dim x1 As Double = CDbl(TextBox3.Text)
  Dim x2 As Double = CDbl(TextBox4.Text)
 
  s = Math.Sqrt((y1 - y2) ^ 2 + (x1 - x2) ^ 2)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de