Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim bmp As Bitmap = New Bitmap(Me.RectangleShape1.Width, Me.RectangleShape1.Height)

        Dim gr As Graphics = Graphics.FromImage(bmp)
        gr.DrawString("Testo di prova", New Font("Verdana", 10, FontStyle.Regular), New SolidBrush(Color.Red), 10, 10)

        Me.RectangleShape1.BackgroundImageLayout = ImageLayout.Center
        Me.RectangleShape1.BackgroundImage = bmp

    End Sub