Ovalshape

dim NrOval as integer = 0
For Each myOval as OvalShape in me.controls
If myOval.Selected = True then
Nroval+=1
end if
Next
TuaLabel.text=NrOval.tostring

dim NrOval as integer = 0
For Each myOval as Control in me.controls
if TypeOf myOval is TipoDelControlloOvalShape then
If directCast(myOval,TipoDelControlloOvalShape).Selected = True then
Nroval+=1
end if
end if
Next
TuaLabel.text=NrOval.tostring

Dim TuaVariabile as string
Select Case TuaVariabile
Case "Testo1","Testo2"
codice da eseguire
Case "Testo3"
codice da eseguire
Case Else
codice da eseguire
End Select

Dim TuaVariabile as Integer
Select Case TuaVariabile
Case 0,1,2,3,4
codice da eseguire
Case 5,6,7,8
codice da eseguire
Case Else
codice da eseguire
End Select

Imports Microsoft.VisualBasic.PowerPacks

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For Each cnt As Control In Me.Controls
            If TypeOf cnt Is ShapeContainer Then
                For Each ovs As OvalShape In DirectCast(cnt, ShapeContainer).Shapes
                    AddHandler ovs.click, AddressOf ovs_click
                Next
            End If
        Next
    End Sub
    Private Sub ovs_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim ovs As OvalShape = CType(sender, Ovalshape)
        If ovs.FillColor = Color.White Then
            ovs.FillColor.Cyan()
        Else
            ovs.FillColor.White()
        End If
    End Sub
End Class