I'm having problem with the last part and outputting the data. How do you get it so that a textbox can output multiple lines? And how do you output the option bubble and listbox selection?
Private Sub Ticket_Click(Index As Integer) Price = 12.75 Select Case Index Case 0 Sum = Price Case 1 Sum = Price * 2 Case 2 Sum = Price * 3 Case 3 Sum = Price * 4 End Select Label4.Caption = Sum If Check1.Value = 1 Then Label4.Caption = Sum - (Sum * 0.2) End If End Sub Private Sub Command1_Click() Text1.Text = "Ticket Price" End Sub
This post has been edited by macosxnerd101: 09 September 2010 - 05:50 PM
Reason for edit:: Title renamed to be more descriptive. Please respect rule #4 of this forum.