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
Sub Command1_Click()
Dim intCount As Integer, strString As String
strString = "Cool, text on screen !"
TextOut Me.Picture1.hdc, 100, 100, strString, Len(strString)
End Sub