This is what I have so far
Public Class Form1
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles genderListBox.SelectedIndexChanged
End Sub
Private Sub gpaListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gpaListBox.SelectedIndexChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'add items to genderListBox
Dim gender As String
gender = CStr(genderListBox.Text)
genderListBox.Items.Add("M")
genderListBox.Items.Add("F")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
allLabel.Text = Convert.ToString(gpaListBox.SelectedItem)
If genderListBox.SelectedItem = "M" Then
maleLabel = maleLabel + allLabel
End If
If genderListBox.SelectedItem = "F" Then femaleLabel.Text = Convert.ToString(gpaListBox.SelectedItem)
Dim projectCounter As Integer = +1
Dim totalAccumulator As Integer
Do While projectCounter > 50
projectCounter += 1
Loop
Dim all As Decimal
all = CDec(allLabel.Visible = True)
Dim male As Decimal
male = CDec(maleLabel.Visible = True)
Dim female As Decimal
female = CDec(femaleLabel.Visible = True)
End Sub
Private Sub all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allLabel.Click
End Sub
End Class

New Topic/Question
Reply



MultiQuote




|