Public Class frmShape
 
    Dim sc As New Microsoft.VisualBasic.PowerPacks.ShapeContainer With _
        {.Parent = Me, .Location = New Point(10, 10), .Size = New Size(300, _
        300)}
 
    Dim rs1 As New Microsoft.VisualBasic.PowerPacks.RectangleShape With _
        {.Parent = sc, .Location = New Point(5, 5), .Size = New Size(100, 100), _
         .FillColor = Color.Red, .FillStyle = PowerPacks.FillStyle.Solid}
 
    Dim rs2 As New Microsoft.VisualBasic.PowerPacks.RectangleShape With _
        {.Parent = sc, .Location = New Point(105, 5), .Size = New Size(100, _
        100), _
         .FillColor = Color.Red, .FillStyle = PowerPacks.FillStyle.Solid}
 
    Delegate Sub ShapeDelegate _
       (ByVal sh As Microsoft.VisualBasic.PowerPacks.RectangleShape)
    Dim SD As New ShapeDelegate(AddressOf ChangeIt)
 
    Dim tcb As New Threading.TimerCallback(AddressOf elapsed)
    Dim tim As New Threading.Timer(tcb, Nothing, 1000, 1000)
 
 
    Private Sub ChangeIt _
        (ByVal rs As Microsoft.VisualBasic.PowerPacks.RectangleShape)
 
        If rs.FillColor = Color.Red Then
            rs.FillColor = Color.Green
        Else
            rs.FillColor = Color.Red
        End If
        rs.Refresh()
    End Sub
 
 
    Dim rs As Microsoft.VisualBasic.PowerPacks.RectangleShape = rs2
 
 
    Public Sub elapsed(state As Object)
        If rs.Equals(rs1) Then rs = rs2 Else rs = rs1
        sc.Invoke(SD, {rs})
    End Sub
End Class