多行文本框的自动调整

Question

我看了论坛上的相关帖子，改了一点，用SENDMESSAGE函数取得文本框内容的行数，然后在程序中实现了多行文本框随输入内容而自动调整高度，但是发现文本框的第一行总是会藏到上面看不到的区域内，而输入内容下面又会凭空多出一个空行，真是搞不懂，望高手出手相救！
此外，因为是把很多个多行文本框放在PICTUREBOX中，如果文本框的总高度超过PICTUREBOX时，就会出现滚动条，由于输入需要不断的刷新以取得行数，使得显示的文本框总是前面几个，不知道用什么方法可以把正在输入的文本框调到显示区域内。先谢谢了！

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Or KeyCode = 8 Then
    hhh=用SENDMESSAGE取得行数
    Text1.Height = TextHeight("样本") * hhh + 100
    Text1.Refresh
    End If
End Sub