Dim X As Long
Dim Y As Long
Dim Text As String

X = 25
Y = 25

Text = "Text test"

With Picture1
.ForeColor = vbBlack
.Font.Name = "Arial"
.Font.Size = 30
.Font.Weight = 750
End With

Call TextOut(Picture.hDC, X, Y, Text, Len(Text))