Visual Basic

<br />
    Private Sub K_Sten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sten.Click<br />
        /.../<br />
    End Sub<br />
<br />
    Private Sub K_Sax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sax.Click<br />
        /.../<br />
    End Sub<br />
<br />
    Private Sub K_Pase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Pase.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub K_Klar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Klar.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub Huvud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub K_Ny_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Ny.Click<br />

<br />
<br />
    Private Sub M_Avsluta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Avsluta.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub M_Om_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Om.Click<br />
/.../<br />
    End Sub<br />

<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 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....