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

[arrowcy]

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

[Gutta]

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

[wgf001]

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

[pcwak]

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

[arrowcy]

谢谢大家