Hi Kevin,

Use this; it assumes you have a PictureBox object on your form:

Dim MyText As String = "This is my text"
Dim textSize As SizeF
Dim g As Graphics
Dim myShadowBrush As Brush = Brushes.Gray
Dim myForeBrush As Brush = Brushes.Black
Dim myFont As New Font("Times New Roman", 40, FontStyle.Regular)
Dim xLocation, yLocation As Single ' Used for the location
g = Me.PictureBox1.CreateGraphics()
g.Clear(Color.White)
textSize = g.MeasureString(MyText, myFont)
xLocation = (Me.PictureBox1.Width - textSize.Width) / 2
yLocation = (Me.PictureBox1.Height - textSize.Height) / 2
g.RotateTransform(90)
g.DrawString(MyText, myFont, myForeBrush, 10, -100)

Les Pinter