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?"
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.