Función Menor

Public Class Form2
Dim a, b, c, d As Integer

Function menor(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) AsInteger
If (a <>
menor = a
ElseIf (b <>
menor = b
ElseIf (c <>
menor = c
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
Label3.Text = menor(a, b, c)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
form3.show()
End Sub
End Class