Generate image from xaml

Option Explicit

Private Sub Form_Load()
   Const c_XamlFile As String = "C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v15.0.1\Utils\Markups\ColoredToucan.xaml"
   
   Dim l_Ff As Integer
   Dim l_Xaml As String
   
   l_Xaml = Space$(FileLen(c_XamlFile))
   l_Ff = FreeFile
   Open c_XamlFile For Binary Access Read As #l_Ff
   Get #l_Ff, , l_Xaml
   Close #l_Ff
   
   Me.Picture1.AutoRedraw = True
   
   With Me.MarkupLabel1
      .Caption = l_Xaml
      .PrintToDC Me.Picture1.hDC, 0, 0, Me.Picture1.ScaleWidth \ Screen.TwipsPerPixelX, Me.Picture1.ScaleHeight \ Screen.TwipsPerPixelY
   End With
   
   SavePicture Me.Picture1.Image, "C:\test.bmp"
End Sub