Grabar Label como imagen en disco duro

[luciano]

si se puede, una forma:

Código:

Sub Grabar(ElLabel As Label, path As String)

Dim Pic As PictureBox
Set Pic = Me.Controls.Add("Vb.PictureBox", "Pic1")

With Pic
    
    .BorderStyle = 0
    
    .Width = ElLabel.Width
    .Height = ElLabel.Height
    Set .Font = ElLabel.Font
    .AutoRedraw = True
    
    Pic.Print ElLabel.Caption
    
    Pic.Picture = Pic.Image
    
    SavePicture Pic.Picture, path
    
    Set Pic = Nothing
    
End With

End Sub

Private Sub Command1_Click()
Call Grabar(Label1, "c:\archivo.bmp")
End Sub

Debes pasar el label y el path como parametro

saludos