Private Sub Form_Load()
 
Dim i&, Breite&, Höhe&, Dicke&, XPos&, YPos&
 
Breite = 70
Höhe = 110
Dicke = 20
XPos = 100
YPos = 100
With Me
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .FillStyle = vbFSSolid
  .FillColor = vbRed
End With
For i = Dicke - 1 To 0 Step -1
  Me.Line (XPos + i, YPos - i)-Step(Breite, Höhe), RGB(180, 0, 0), B
Next i
Me.Line (XPos, YPos)-Step(Breite, Höhe), vbBlack, B
Me.Line (XPos, YPos)-Step(Dicke, -Dicke), vbBlack
Me.Line (XPos + Breite, YPos)-Step(Dicke, -Dicke), vbBlack
Me.Line (XPos + Breite, YPos + Höhe)-Step(Dicke, -Dicke), vbBlack
 
End Sub

With MSChart1
  .chartType = VtChChartType3dBar
  .RowCount = 1
End With

Dim y1, y2, y3, y4, y5, y6, y7, y8 As Double

Gruss,

Zardoz