Here is a modification from thread222-543767. In this I have changed Picture1 to Me. To test start a new project and copy the following code into the forms code window.
[tt]
Option Explicit
Private Sub Form_Load()
Me.Width = 8000
Me.Width = 7800
Me.AutoRedraw = True
Me.Print "This Is A Test"
Me.Print "This is only a test."
Me.Print "Remember this is just a test."
Me.CurrentX = Me.TextWidth("This Is A Test"

Me.CurrentY = 0
Me.Print "."
Me.CurrentY = 0
Me.CurrentX = Me.TextWidth("Remember this is just a test."

+ 500
Me.Print "<Was missing peroid, looks like vbProperCase."
Me.CurrentX = Me.TextWidth("Remember this is just a test."

+ 500
Me.Print "<only a test of what?"
Me.CurrentX = Me.TextWidth("Remember this is just a test."

+ 500
Me.Print "<shouldn't that have a comma after remember?"
End Sub
[/tt]
Good Luck