回复：新人求罩啊~~~~~~！！！！关于picturebox文字输入换行的问题.

'这个问题可以变通一下的。按我想法可以用text作为输入接收端。
'窗体上放一个picture1,再在picture1里放一个text , (这部分原本我想在程序中实现，但因为text的多行设置MultiLine跟ScrollBars属性必须在设计的时候搞所以放弃了)
’---------------------------------------------------------------------
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private WithEvents Text1 As TextBox
Private WithEvents Picture1 As PictureBox
Private Sub Form_Load()
Set Text1 = Controls.Add("VB.TextBox", "Text1")
Set Picture1 = Controls.Add("VB.PictureBox", "Picture1")
With Picture1
Text1.Move 0, 0, .Width, .Height
Text1.BackColor = .BackColor
'Text1.MultiLine = True
'Text1.ScrollBars = 3
.Move 0, 0, Me.Width, Me.Height / 2
.Visible = True
SetParent Text1.hWnd, .hWnd
End With
End Sub
’---------------------------------------------------------------------
‘上面这代码你不用复制 ，你手工添加一个图片框，并且在图片框内加一个文本框，把文本框设置成多行，并且带上下滚动条的。且不可见。

’下面的东西就简单了
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Text1
If .Visible Then .Visible = False
Picture1.Cls
Picture1.Print .Text
End With
End Sub
'欢迎到群： 51117563 里交流VB技巧问题。
'欢迎到群： 51117563 里交流VB技巧问题。
Private Sub Form_Resize()
Text1.Move 0, 0, Picture1.Width, Picture1.Height
End Sub
'欢迎到群： 51117563 里交流VB技巧问题。
'欢迎到群： 51117563 里交流VB技巧问题。
Private Sub Form_Unload(Cancel As Integer)
Set Text1 = Nothing
Set Picture1 = Nothing
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Text1
If .Visible = False Then
.Visible = True
.SetFocus
End If
End With
End Sub
'欢迎到群： 51117563 里交流VB技巧问题。
'欢迎到群： 51117563 里交流VB技巧问题。

最后祝兄弟周未愉快。

以下代码仅仅只是测试，不保证代码的正确性。
----------------------------------------------------------
private sub command1_click()
dim str1$, str2$
str1 = "这是一个测试的图片控件内容我们将这行字大于二十七字并强制使每行只有十三个字"
picture1.cls
do while len(str1) > 13
str2 = str2 & left(str1, 13) & vbcrlf
str1 = right(str1, len(str1) - 13)
loop
picture1.print str2 & str1
end sub