' This glyph shows that the activity's track point is not correctly configured
Friend NotInheritable Class ErrorActivityGlyph
    Inherits DesignerGlyph

    Shared image As Bitmap = Resources.errorIcon
    Dim errorMessage As String

    Friend Sub New(ByVal errorMessage As String)
        Me.errorMessage = errorMessage
    End Sub

    Public Overrides ReadOnly Property CanBeActivated() As Boolean
        Get
            Return True
        End Get
    End Property

    ' Display an error message when this glyph is clicked
    Protected Overrides Sub OnActivate(ByVal designer As ActivityDesigner)
        MessageBox.Show(errorMessage)
    End Sub

    Public Overrides Function GetBounds(ByVal designer As ActivityDesigner, ByVal activated As Boolean) As Rectangle
        Dim imageBounds As New Rectangle()
        If image IsNot Nothing Then
            imageBounds.Size = image.Size
            imageBounds.Location = New Point(designer.Bounds.Right - imageBounds.Size.Width / 4, designer.Bounds.Top - imageBounds.Size.Height / 2)
        End If
        Return imageBounds
    End Function


    Protected Overrides Sub OnPaint(ByVal graphics As Graphics, ByVal activated As Boolean, ByVal ambientTheme As AmbientTheme, ByVal designer As ActivityDesigner)
        image.MakeTransparent(Color.FromArgb(255, 255, 255))
        If image IsNot Nothing Then
            graphics.DrawImage(image, GetBounds(designer, activated), New Rectangle(Point.Empty, image.Size), GraphicsUnit.Pixel)
        End If
    End Sub
End Class