Closed Create a program that shows the consonant and vowels in the words given inside the listbox

[Made-In-Heaven]

Patulong naman, may code na ako pang show ng vowels pero hindi ito tama eh , please help .

The code :

Public Class Form1
    Dim pedro As String
    Dim I As Integer
    Dim nVowels As Integer
    Dim Vowels As String
    Dim invoker As String
    Dim axe As String
    Dim InputString As String
 
 
 
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        pedro = TextBox1.Text
        invoker = ListBox1.Items.Add(pedro)
 
 
 
 
    End Sub
 
 
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim count = ListBox1.Items.Count
        Dim vow As String
        Dim cons As String
        For counter As Integer = 0 To count
            Dim word As String = ListBox1.Items(counter)
            Dim vows As String = "aeiou"
            Dim baga As String = word.Substring(0, 1)
            If (vows.Contains(baga.ToLower)) Then
                vow = vow + 1
            Else
                cons = cons + 1
 
            End If
        Next counter
        TextBox2.Text = vow
        TextBox3.Text = cons
 
 
      
    End Sub
 
End Class
Public Class Form1
    Dim pedro As String
    Dim I As Integer
    Dim nVowels As Integer
    Dim Vowels As String
    Dim invoker As String
    Dim axe As String
    Dim InputString As String
 
 
 
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        pedro = TextBox1.Text
        invoker = ListBox1.Items.Add(pedro)
 
 
 
 
    End Sub
 
 
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim count = ListBox1.Items.Count
        Dim vow As String
        Dim cons As String
        For counter As Integer = 0 To count
            Dim word As String = ListBox1.Items(counter)
            Dim vows As String = "aeiou"
            Dim baga As String = word.Substring(0, 1)
            If (vows.Contains(baga.ToLower)) Then
                vow = vow + 1
            Else
                cons = cons + 1
 
            End If
        Next counter
        TextBox2.Text = vow
        TextBox3.Text = cons
 
 
      
    End Sub
 
End Class

Sana matulungan ninyo si akitch :'(

 

[jay3244]

wow boss, galin nyo po,
d ako marunong , patulong po boss sa susunod.

 

[ConquerorXXX]

ayaw ko niyan lalabas ang ihi natin sa ilong
pag source code ang pag uusapan

 

[Made-In-Heaven]

ayaw ko niyan lalabas ang ihi natin sa ilong
pag source code ang pag uusapan

Hahahahaha ... Sigeh boss . Programming kasi course ko kaya need ko help. Mukhang ako lang tlga magpapaingay sa forum ng programming eh XD

 

[Made-In-Heaven]

wow boss, galin nyo po,
d ako marunong , patulong po boss sa susunod.

haha, new lang po ako sa visual basic at may background na ako sa java.