Label texto vertical

Label1.Text = String.Join(Environment.NewLine, Array.ConvertAll(Label1.Text.ToCharArray, Function(c) c.ToString))

http://www.vbforums.com/showthread.php?644587-RESOLVED-How-create-Label-vertical-in-vb-net