Dim gp As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath()
gp.AddEllipse(New Rectangle( 0 ,  0 ,  200 ,  200 ))
Dim strText As String =  "Кнопка" 
Dim fFont As New FontFamily( "Arial" )
Dim myFontStyle As Integer = CInt(FontStyle.Bold)
Dim emSize As Integer =  30 
Dim origin As New Point( 45 ,  80 )
Dim format As StringFormat = StringFormat.GenericDefault
gp.AddString(strText, fFont, myFontStyle, emSize, origin, format)
Button1.BackColor = Color.Black
Button1.Size = New System.Drawing.Size( 200 ,  200 )
Button1.Region = New Region(gp)