Visual Basic - AYUDA CON CODIGO

Hola, tengo un código viejo de VB6. y no le puedo encontrar la vuelta para trasponerlo a VB 2015 y transformarlo ejecutable.
les dejo el codigo viejo



otro seria:

Formulario 1:


gracias

Espero te sirva esta lijera transformacion del codigo

Private Sub Form1_DoubleClick(sender As Object, e As System.EventArgs) Handles Me.DoubleClick
Guia_1_3_1.Hide()
Guia_1_3_2.Show()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Guia_1_3_1.Show()
Guia_1_3_1.Label1.Text = "MATERIAS DE SISTEMAS" & vbCrLf & _
"->ALGORITMOS" & vbCrLf & "->PROGRAMAS" & vbCrLf & "->DIAGRAMAS DE FLUJO" & vbCrLf & _
"->PRUEBA DE ESCRITORIO"
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim p, p2, x1, y1, x2, y2, x3 As Double, y3 As Double, d, m

x3 = 0

y3 = 0

punto1.SelectionStart = 0

punto1.SelectionLength = Len(punto1.Text)

p = InStr(punto1.Text, ",")

x1 = Mid(punto1.Text, 1, p - 1)

y1 = Mid(punto1.Text, p + 1, punto1.SelectionLength)

punto2.SelectionStart = 0

punto2.SelectionLength = Len(punto2.Text)

p2 = InStr(punto2.Text, ",")

x2 = Mid(punto2.Text, 1, p2 - 1)

y2 = Mid(punto2.Text, p2 + 1, punto2.SelectionLength)

d = System.Math.Sqrt(((Val(x2) - Val(x1)) ^ 2) + ((Val(y2) - Val(y1)) ^ 2))

m = (Val(y2) - Val(y1)) / (Val(x2) - Val(x1))

x3 = (Val(x1) + Val(x2)) / 2

y3 = (Val(y1) + Val(y2)) / 2

respuesta.Text = "La distancia es " & d & ", la pendiente es " & m & " y el punto medio es (" & x3 & "," & y3 & ")"
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Guia_3_5.Hide()
Guia_3.Show()
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Guia_1_3_1.Show()
Guia_1_3_1.Label1.Text = "MATERIAS DE SISTEMAS" & vbCrLf & _
"->ALGORITMOS" & vbCrLf & "->PROGRAMAS" & vbCrLf & "->DIAGRAMAS DE FLUJO" & vbCrLf & _
"->PRUEBA DE ESCRITORIO"
End Sub