Problem in VB.NET with code

[Kaneoku]

Im having trouble seeing the answer come up in a triangle project. please help, i already have the classes set up.

Private Sub Calculate(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnArea.Click, btnPerimeter.Click, btnType.Click, btnHeight.Click
 
        Dim sngSideA As Single = Val(Me.txtSideA.Text)
        Dim sngSideB As Single = Val(Me.txtSideB.Text)
        Dim sngSideC As Single = Val(Me.txtSideC.Text)
        Dim UserTriangle As New Triangle(sngSideA, sngSideB, sngSideC)
 
        If UserTriangle.ValidTriangle Then
            Dim btnButtonClicked As Button = sender
            Select Case btnButtonClicked.Tag
                Case "Area"
                    Me.lblArea.Text = UserTriangle.Area
                Case "Perimeter"
                    Me.lblPerimeter.Text = UserTriangle.s * 2
                Case "Type"
                    Me.lblType.Text = UserTriangle.Type
                Case "Height"
                    Me.lblHeight.Text = UserTriangle.Height
            End Select
        Else
            MessageBox.Show("Measurements typed are not for valid triangle.")
 
            Me.txtSideA.Text = Nothing
            Me.txtSideB.Text = Nothing
            Me.txtSideC.Text = Nothing
        End If
 
    End Sub
 
    Private Sub SideChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles txtSideA.TextChanged, txtSideB.TextChanged, txtSideC.TextChanged
 
        Me.lblArea.Text = Nothing
        Me.lblPerimeter.Text = Nothing
        Me.lblType.Text = Nothing
    End Sub
End Class