189 8069 5689
两种方法：
创新互联是一家专业提供尼泸西企业网站建设,专注与网站建设、成都网站设计、H5技术、小程序制作等业务。10年已为尼泸西众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
图片框上盖个Label 向其输入内容。
载入图片，通过内存直接 DrawImage绘制个新图，然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字，不管有无图都能在上面Print. 考虑速度和实现难度问题，如果纯粹显示，最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下，不会自动换行，得自己切。
文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。
Option Explicit
' 逻辑字体
Public Const LF_FACESIZE = 32 ' 最长的字体名称
Public Const SYSTEM_FONT = 13
Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
' 字体的族
Public Const VARIABLE_PITCH = 2
Public Const FF_DONTCARE = 0 ' 无所谓
Public Const FF_ROMAN = 16 ' 字体宽度可变，Times Roman, Century ' Schoolbook等
Public Const FF_SWISS = 32 ' 宽度可变，带衬线，如Helvetica, Swiss等
Public Const FF_MODERN = 48 ' 具有规定的宽度，衬线可有可无，
' 如Pica, Elite, Courier等等.
Public Const FF_SCRIPT = 64 ' 手写体，如Cursive
Public Const FF_DECORATIVE = 80 ' 特殊字体，如Old English
' GDI字体函数
Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Declare Function GDIGetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
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
Declare Function lstrlen Lib "KERNEL32" Alias "lstrlenA" (ByVal lpString As String) As Long
Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Sub RotPrint(ByVal hDestDC As Long, Text As String, x As Double, y As Double, LineAngle As Double)
Dim hFont As Long, hOldFont As Long, R As Long
Dim Font As LOGFONT
hOldFont = SelectObject(hDestDC, GetStockObject(SYSTEM_FONT))
GDIGetObject hOldFont, Len(Font), Font
' 填充LOGFONT结构
Font.lfEscapement = LineAngle * 10 ' 输出字体行与水平页底间的角度(以1/10度为单位)
' 必须是可变点字体
Font.lfPitchAndFamily = VARIABLE_PITCH Or FF_DONTCARE
' 创建字体
hFont = CreateFontIndirect(Font)
' 选择旋转字体
R = SelectObject(hDestDC, hFont)
' 显示字体
TextOut hDestDC, x, y, Text, lstrlen(Text)
' 恢复原字体
hFont = SelectObject(hDestDC, hOldFont)
' 删除创建的字体
DeleteObject hFont
'DeleteObject hOldFont
End Sub