picture1.print "Demo"
第二种方法
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
private sub Picture1_Click()
dim S as string
s="DEMO"
picture1.cls
TextOut picture1.hdc,10,10,s,len(s)
picture1.refresh
end sub
温馨提示:内容为网友见解,仅供参考