Visual Basic

<font face="Courier New" size="2"><font color="blue">Dim</font> V_DuVin <font color="blue">As</font> Boolean<br><font color="blue">Dim</font> V_DatVin <font color="blue">As</font> Boolean<br><font color="blue">Dim</font> V_DinPoang <font color="blue">As</font> Integer<br><font color="blue">Dim</font> V_DatPoang <font color="blue">As</font> Integer<br><font color="#009999">'////BELOW WINDOWS GENERATED CODE AREA^^^^.</font><br><font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(ByVal sender <font color="blue">As</font> System.Object, ByVal e <font color="blue">As</font> System.EventArgs) Handles Button1.Click<br>     V_DuVin = True<br><font color="blue">End</font> <font color="blue">Sub</font><br><br><font color="blue">Private</font> <font color="blue">Sub</font> Button2_Click(ByVal sender <font color="blue">As</font> System.Object, ByVal e <font color="blue">As</font> System.EventArgs) Handles Button2.Click<br>If V_DuVin = True Then<br>     V_DinPoang = V_DinPoang + 1<br>     ElseIf V_DatVin = True Then<br>        V_DatPoang = V_DatPoang + 1<br>     <font color="blue">End</font> If<br>     MessageBox.Show(V_DinPoang)<br><font color="blue">End</font> <font color="blue">Sub</font></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>;
    }
    }

<br />
Dim V_DinPoang As Integer<br />
Dim V_DatPoang As Integer<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>;
    }
    }