Public Class Form1
'//////////////CREATED BY ZEKI OZYILMAZ for CST112
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Turns a word the user enters into pig latin

        'Step0. Declarations
        Dim word, first As String
        'Step1. Input
        word = TextBox1.Text
        first = word.Substring(0, 1)
        'Step2. Process
        If "aeiou".IndexOf(first) <> -1 Then
            word &= "way"
        Else
            word = word.Substring(1) & first & "ay"
        End If
        'Step3. Output
        ListBox1.Items.Add("The word in pig latin is " & word & ".")
    End Sub
End Class