Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btnSing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSing.Click
- showverse("lamb", "baa")
- showVerse("duck", "quack")
- showVerse("firefly", "blink")
- End Sub
- Sub ShowVerse(ByVal animal As String, ByVal sound As String)
- lstSong.Items.Add("Old McDonald had a farm. Eyi eyi oh.")
- lstSong.Items.Add("And on his farm he had a " & animal & ". Eyi eyi oh.")
- lstSong.Items.Add("With a " & sound & " " & sound & " here, and a " & sound & " " & sound & " there.")
- lstSong.Items.Add("Here a " & sound & ", there a " & sound & ", everywhere a " & sound & " " & sound & " .")
- lstSong.Items.Add("Old McDonald had a farm. Eyi eyi oh. ")
- End Sub
- End Class
Add Comment
Please, Sign In to add comment