Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As LongPrivate Sub Command1_Click() TextOut Picture1.hdc, 0, 0, Text1.Text, Len(Text1.Text) End Sub
picture1.print text1.text
TextOut Picture1.hdc, 0, 0, Text1.Text, Len(Text1.Text)
End Sub