Visual Basic

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> sndPlaySound <font color="blue">Lib</font> "winmm.dll" <font color="blue">Alias</font> "sndPlaySoundA" _
              (<font color="blue">ByVal</font> lpszSoundName <font color="blue">As String</font>, <font color="blue">ByVal</font> uFlags <font color="blue">As Integer</font>) <font color="blue">As Integer</font>
    <font color="blue">Const</font> SND_SYNC <font color="blue">As Integer</font> = &H0
    <font color="blue">Const</font> SND_ASYNC <font color="blue">As Integer</font> = &H1
    <font color="blue">Const</font> SND_NODEFAULT <font color="blue">As Integer</font> = &H2
    <font color="blue">Const</font> SND_LOOP <font color="blue">As Integer</font> = &H8
    <font color="blue">Const</font> SND_NOSTOP <font color="blue">As Integer</font> = &H10
    <font color="blue">Dim</font> SoundName <font color="blue">As String</font>, wFlags <font color="blue">As Integer</font>, x <font color="blue">As String</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Button2_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button2.Click
    SoundName = "D:\Knock.wav"
    wFlags = SND_ASYNC <font color="blue">Or</font> SND_NODEFAULT
    x = sndPlaySound(SoundName, wFlags)
    

<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

dim thd as Threading.Thread<br />
<br />
Private Sub threadSub()<br />
 'Some Code<br />
End Sub<br />
<br />
Private Sub threadLauncher()<br />
  thd = new Threading.Thread(AddressOf threadSub)<br />
  thd.Start()<br />
End Sub

While True<br />
<br />
End While

Greetings....

<br />
        Dim objLabel As Control<br />
        For Each objLabel In Me.Controls<br />
            If TypeOf objLabel Is Label Then<br />
                MsgBox(objLabel.Name)<br />
                '////do your code here for that label<br />
            End If<br />
        Next<br />

switch(twinsOnWay).<br/>  {<br/>  case ("twins on the way"):<br/>    MessageBox.Show("for mr and mrs dynamic","twins on the way");<br/>  break;<br/>}