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