PictureBoxiin tekstiä?

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 Long


Dim sText As String
Dim X, Y As Long

sText = "TEKSTIÄ"
X = 0 : Y = 0

Call TextOut(Picture1.hdc, X, Y, sText, Len(sText))

Ainakin minulla toimii:

Picture1.Print "moo"

mutta laita myös
Picture1.AutoRedraw = True

niin teksti myös pysyy siinä vaikka käytät ko. ohjelma-ikkunaa taustalla.