Is there a text box that can rotate or a way to print text rotated 90
degrees? I've been looking but can't find anything.
degrees? I've been looking but can't find anything.
-
-
Re: Rotating text
Roy try this with a textbox multiline = True and a command button.
Option Explicit
Private Sub Command1_Click( )
Dim myStr As String
Dim myStrLen As Long
Dim myLoop As Long
Dim myEndStr As String
myStr = Text1.Text
myStrLen = Len(myStr)
For myLoop = 1 To myStrLen
myEndStr = myEndStr & (Mid$(myStr, myLoop, 1) & vbNewLine)
Next myLoop
Text1.Text = myEndStr
Command1.Visibl e = False
End Sub
Private Sub Form_Load()
Text1.Text = "HELLO WORLD"
End Sub
George
"Roy Harbert" <rharbert@veriz on.net> wrote in message
news:4B%rf.766$ Rb.621@trndny02 ...[color=blue]
> Is there a text box that can rotate or a way to print text rotated 90
> degrees? I've been looking but can't find anything.
>
>[/color]
Comment