error not defined in
Code:
Private Sub IDrawable_Draw(po_CairoContext As RC6.cCairoContext, Optional ByVal po_LivePoint As CPoint = Nothing, Optional ByVal p_PathOnly As Boolean = False, Optional ByVal p_IsSelected As Boolean = False, Optional ByVal p_DrawHandles As Boolean = False, Optional ByVal p_Zoom As Double = 1#)
   Dim lo_IDrawable As IDrawable
   Dim lo_Rect As CRect
   
   Set lo_IDrawable = Me.Rect
   lo_IDrawable.Draw po_CairoContext, po_LivePoint, p_PathOnly, p_IsSelected, p_DrawHandles
   
   po_CairoContext.SelectFont Me.Font.Name, _
                              Me.Font.Size * PointsPerPixel, _
                              Me.TextColor, _
                              Me.Font.Bold, _
                              Me.Font.Italic, _
                              Me.Font.Underline, _
                              Me.Font.Strikethrough
   
   Set lo_Rect = Me.Rect.NormalizedRect   ' Normalize the rectangle so that the text appears if the rect was drawn any direction other than top-left to bottom-right
   
   If Me.VerticalAlignment = verticalalign_Bottom Then
      ' TODO:
      ' RC6 CairoContext.DrawText Method only supports Top/Middle alignment, so we have to do our own bottom alignment text rendering

      DrawTextBottomAlign po_CairoContext, _
                               lo_Rect.X1, _
                               lo_Rect.Y1, _
                               lo_Rect.Width, _
                               lo_Rect.Height, _
                               Me.Text, _
                               False, _
                               Choose(Me.HorizontalAlignment + 1, vbLeftJustify, vbCenter, vbRightJustify), _
                               10
   Else
      po_CairoContext.DrawText lo_Rect.X1, _
                               lo_Rect.Y1, _
                               lo_Rect.Width, _
                               lo_Rect.Height, _
                               Me.Text, _
                               False, _
                               Choose(Me.HorizontalAlignment + 1, vbLeftJustify, vbCenter, vbRightJustify), _
                               10, _
                               Me.VerticalAlignment
   End If
End Sub
everything else works very well