Or use the Print method.
Code:
Private Sub Command1_Click()
    Picture1.ForeColor = vbRed
    Picture1.FontName = "Courier New"
    Picture1.Print "GDFGFD"
End Sub

Private Sub Command2_Click()
    Picture1.ForeColor = vbBlue
    Picture1.FontName = "Times New Roman"
    Picture1.Print "FDSDSFS"
End Sub