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 rs 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}
 
 
    Private Sub frmShape_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
 
        Dim th As New Threading.Thread(AddressOf ShapeChanger)
        th.Start()
    End Sub
 
 
    Private Sub ShapeChanger()
        Dim c As Integer
        Do
            c += 1
            Threading.Thread.Sleep(500)
            Me.Invoke(New MethodInvoker(AddressOf ChangeIt))
            'oder sc.Invoke ....
        Loop While c < 100
    End Sub
 
 
    Private Sub ChangeIt()
        If rs.FillColor = Color.Red Then
            rs.FillColor = Color.Green
        Else
            rs.FillColor = Color.Red
        End If
        rs.Refresh()
    End Sub
End Class