[bidaya]

كود :

Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

       Dim shape As New System.Drawing.Drawing2D.GraphicsPath
       shape.AddEllipse(0, 0, PictureBox1.Width, PictureBox1.Height)
       PictureBox1.Region = New System.Drawing.Region(shape)

   End Sub

هذا كود لجعل الادات بيكتر بوكس دائرية
اريد كود لجهل الادات   مكعبة   بالشكل التالي    

وشكرا