Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.SetBounds(10, 10, 100, 100)
        Dim bmp As New Bitmap(100, 100)
        Using bm As New Bitmap(Me.Icon.ToBitmap), g As Graphics = _
          Graphics.FromImage(bmp)
            g.Clear(Color.Black)
            g.RotateTransform(90, Drawing2D.MatrixOrder.Append)
            g.TranslateTransform(bmp.Width \ 2, bmp.Height \ 2, _
              Drawing2D.MatrixOrder.Append)
            g.DrawImage(bm, -bm.Width \ 2, -bm.Height \ 2, 60, 60)
        End Using
        PictureBox1.Image = bmp
    End Sub
End Class