Visual Basic help

[NorcoAccord]

I have a program all i need to do is fix the last part, I keep getting an end of statment error and cant figure out how to fix it, and snytax error *

Private Sub CalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click
'Select Case True
'This adds
Dim strChoice As String
strChoice = OperationGroupBox.Text
Select Case True
'AnswerLabel.Text = Val(UnitsTextBox.Text) * 10
Case RetailerRadio.Checked

if val(UnitsTextBox.text < 3 Then
UnitsTextBox.Text = 5 * Val(9) Then
else if
val(UnitsTextBox.text) > 8 then
*14
Elseif
val (UnitsTextBox.text) > 9 then
* 12

Case WholesalerRadio.Checked
If Val(UnitsTextBox.Text) < 4 Then
* 10
elseif
val(UnitsTextBox.text) >5 then
* 9
End If
End Select
End Sub

[foamypirate]

I have a program all i need to do is fix the last part, I keep getting an end of statment error and cant figure out how to fix it, and snytax error *

Private Sub CalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click
'Select Case True
'This adds
Dim strChoice As String
strChoice = OperationGroupBox.Text
Select Case True
'AnswerLabel.Text = Val(UnitsTextBox.Text) * 10
Case RetailerRadio.Checked

if val(UnitsTextBox.text < 3 Then
UnitsTextBox.Text = 5 * Val(9) Then

You have too many then's and not enough if's.

Change that around and see if it fixes it.

[Accord R33]

Aside from that, your missing a closing ')' on that same line.

try and use the [ code ] [ /code ] tags next time. it makes it easier to read.

[NorcoAccord]

Still not getting it I cut out a lot of the code if i can get one peice to work here is what I have done

  Private Sub CalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click
        'Select Case True
        'This adds
        Dim strChoice As String
        strChoice = OperationGroupBox.Text
        Select Case True
            'AnswerLabel.Text = Val(UnitsTextBox.Text) * 10
            Case RetailerRadio.Checked

                If AnswerLabel.Text = Val(UnitsTextBox.Text) < 3 Then *15



        End Select
    End Sub
End Class

[Accord R33]

can you post the exact compiler errors.

OT: God i hate Visual Basic.

[NorcoAccord]

I get a snytax error If AnswerLabel.Text = Val(UnitsTextBox.Text) < 3 Then *15 right at the time symbol

[foamypirate]

Need to move that down to the next line to do your logic operations. Nothing should follow the "Then"

i.e.

If AnswerLabel.Text = Val(UnitsTextBox.Text) < 3 Then
AnswerLabel.Text = Val(UnitsTextBox.Text) *15 (or whatever operation you are doing).
else if
blah blah blah