L'ho trovato lo posto per chi ne avesse bisogno:

Dim myText As String = ListBox2.Text
Dim fontFamily As New FontFamily("Arial")
Dim font As New Font( _
fontFamily, _
12, _
FontStyle.Bold, _
GraphicsUnit.Point)
Dim rect As New Rectangle(30, 10, 120, 140)
Dim stringFormat As New StringFormat
Dim solidBrush As New SolidBrush(Color.FromArgb(255, 0, 0, 255))

' Center each line of text.
stringFormat.Alignment = StringAlignment.Center

' Center the block of text (top to bottom) in the rectangle.
stringFormat.LineAlignment = StringAlignment.Center

e.Graphics.DrawString(myText, font, solidBrush, RectangleF.op_Implicit(rect), stringFormat)

Dim pen As Pen = Pens.Black
e.Graphics.DrawRectangle(pen, rect)