Visual Basic Foro

Te paso un ejemplo y guiando te de esto puedes ver donde esta tu error, seguramnete es porque utilizas Picture1.picture en vez de utilizar Picture1.Image

Código: (Vb) [Seleccionar]

Option Explicit

Private Sub Form_Load()

Dim AnchoDeLaLetra As Long
Dim AltoDeLaLetra As Long


Picture2.AutoRedraw = True  '
Picture2.ScaleMode = vbPixels


With Picture1
    .AutoRedraw = True
    .ScaleMode = vbPixels
    .CurrentX = 20
    .CurrentY = 30
    AnchoDeLaLetra = .TextWidth("A")
    AltoDeLaLetra = .TextHeight("A")
End With

Picture1.Print "A"

Picture2.PaintPicture Picture1.Image, 0, 0, AnchoDeLaLetra, AltoDeLaLetra, 20, 30, AnchoDeLaLetra, AltoDeLaLetra

End Sub

Saludos.