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