With Picture1


      .Picture = LoadPicture("C:\xd.jpg")
      .Font.Name = " Verdana"
        .Font.Size = 7
        .ForeColor = vbRed
  
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
          
        .Picture = Picture1.Image
          
     End With
      
    SavePicture Picture1, "c:\ejemplo.jpg"
      
    MsgBox " jpg salvado en c: ", vbInformation

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\lol")
Set fc = f.Files
   For Each f1 In fc
     MsgBox f1.Name
      With Picture1
      .Picture = LoadPicture("C:\lol\" & f1.Name)
      .Font.Name = " Verdana"
        .Font.Size = 5
        .ForeColor = vbRed
  
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
          
        .Picture = Picture1.Image
        
          
     End With
     
     
    SavePicture Picture1, "c:\ejemplo.jpg"
  
    MsgBox " Gráfico BMP salvado en c: ", vbInformation
  
    Next