Resizing a picture box to contain text

[james007lamb]

i have a picture box, in which i print a lot of text lines. Basically the number of lines i print depends on a variable!

I want the picbox to resize in height so that it can contain all those text lines, but don't know how to do it????

e.g. if i know that i have 20 lines how do i change the size??? (the font size is at the default!!)

Please help!!!

James

[peet]

Private Sub Command2_Click()
    Dim sVar As String
    sVar = "some lines of text"
    Picture1.Height = Picture1.TextHeight(sVar) * 20
End Sub

u have to add some height in order to make this correct

[peet]

a bit confusing the last post ... sorry about that...

sample

Private Sub Command2_Click()
    Dim sVar As String
    Dim i As Integer
    For i = 0 To 19
        sVar = sVar & "some lines of text " & i & vbCrLf
    Next i
    Picture1.Height = Picture1.TextHeight(sVar)
    Picture1.Print sVar
End Sub