Visual Basic

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/>}

<br />
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br />
        Dim objLabel As Control<br />
        For Each objLabel In Me.Controls<br />
            If TypeOf objLabel Is Label Then<br />
                If objLabel.Name = "Label" > "0" < "21" Then<br />
                    MoveLabel(objLabel)<br />
                End If<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Public Function MoveLabel(ByVal lbl As Label)<br />
        Dim i As Integer<br />
        Dim j As Integer = lbl.Top<br />
<br />
        For i = 1 To 60<br />
            j = j + +1<br />
            lbl.Top = j<br />
            System.Threading.Thread.Sleep(20)<br />
        Next<br />
    End Function<br />

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

<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>;
    }
    }

<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 Long</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> Button1_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> Button1.Click
        SoundName = "C:\Documents and Settings\Den\My Documents\Visual Studio Projects\WindowsApplication1\beav_rap.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>;
    }
    }