怎样在窗体或者picturebox的指定坐标写字符

Question

比如说要在picturebox的(1000,1000)处写一个字符串，怎么写

Answer 1

Private Sub Command1_click()
Picture1.CurrentX=1000
Picture1.CurrentY=1000
Picture1.Print "String"
End Sub

Answer 2

是print出来吗？
写在控件中不行吗？

Answer 3

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 LongSub 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