VB 2010 - Otočení labelu o 90º

Dá se přepsat jeho metoda Paint

Private Sub Label1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Dim sf As New StringFormat
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
Label1.Text = ""
e.Graphics.TranslateTransform(Label1.ClientSize.Width,Label1.ClientSize.Height)
e.Graphics.RotateTransform(180)
e.Graphics.DrawString("upside down string", Label1.Font,
Brushes.Black, RectangleF.op_Implicit(Label1.ClientRectangle), sf)
End Sub