PictureBox怎樣模擬TextBox控件可以直接輸入信息？该怎么处理

PictureBox怎樣模擬TextBox控件可以直接輸入信息？
如題，謝謝！

[解决办法]
这样模拟？

Private m_sText As String

Private Sub Picture1_KeyPress(KeyAscii As Integer)
Dim lLength
lLength = Len(m_sText) - 1
If KeyAscii = 8 Then
If lLength > = 0 Then m_sText = Left(m_sText, lLength)
Else
m_sText = m_sText & Chr(KeyAscii)
End If

Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Cls
Picture1.Print m_sText
End Sub