daily pastebin goal
46%
SHARE
TWEET

Untitled

a guest Jul 12th, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Private Sub btnSing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSing.Click
  4.         showverse("lamb", "baa")
  5.         showVerse("duck", "quack")
  6.         showVerse("firefly", "blink")
  7.     End Sub
  8.  
  9.  
  10.     Sub ShowVerse(ByVal animal As String, ByVal sound As String)
  11.         lstSong.Items.Add("Old McDonald had a farm. Eyi eyi oh.")
  12.         lstSong.Items.Add("And on his farm he had a " & animal & ". Eyi eyi oh.")
  13.         lstSong.Items.Add("With a " & sound & " " & sound & " here, and a " & sound & " " & sound & " there.")
  14.         lstSong.Items.Add("Here a " & sound & ", there a " & sound & ", everywhere a " & sound & " " & sound & " .")
  15.         lstSong.Items.Add("Old McDonald had a farm. Eyi eyi oh. ")
  16.     End Sub
  17.  
  18. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top