Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim gr As Graphics = Me.Button1.CreateGraphics
        Dim fnt As Font
        Dim br As Brush = Brushes.Black
        Dim sf As StringFormat
        Dim x, y As Int32
        fnt = New Font("Arial", 25, FontStyle.Regular, GraphicsUnit.Pixel)
        sf = New StringFormat(StringFormatFlags.DirectionVertical)
        gr.DrawString("Button1", fnt, br, 5, 5, sf)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Button1.Text = ""
        Me.ResizeRedraw = True
    End Sub