VB.Net Chart bar width

Anyone know how to set a specific width for the bars in vb.net chart? i have created a total of 8 series (8 bars) in my chart and it works fine but my bars are so thin. Is there a way to set my bar width? thank a lot in advance, here's my code :

    Public Sub Loadunitvaluesgraph(ByVal lbltcountzero As Label, ByVal lbltcountone As Label, ByVal lbltcounttwo As Label, ByVal lbltcountthree As Label, ByVal lbltcountfour As Label, ByVal lbltcountfive As Label, ByVal lbltcountsix As Label, ByVal lbltcountseven As Label, ByVal lbltcountnull As Label)

        With chrtChangedValues

            .Series().Clear()


            '======Series
            .Series.Add("Series1")
            .Series.Add("Series2")
            .Series.Add("Series3")
            .Series.Add("Series4")
            .Series.Add("Series5")
            .Series.Add("Series6")
            .Series.Add("Series7")
            .Series.Add("Series8")

            .Series("Series1").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series2").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series3").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series4").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series5").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series6").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series7").CustomProperties = "DrawingStyle = Cylinder"
            .Series("Series8").CustomProperties = "DrawingStyle = Cylinder"
          
            '=====COLOR
            .Series("Series1").Color = Drawing.Color.Yellow
            .Series("Series2").Color = Drawing.Color.Gold
            .Series("Series3").Color = Drawing.Color.Orange
            .Series("Series4").Color = Drawing.Color.DarkOrange
            .Series("Series5").Color = Drawing.Color.Tomato
            .Series("Series6").Color = Drawing.Color.OrangeRed
            .Series("Series7").Color = Drawing.Color.Red
            .Series("Series8").Color = Drawing.Color.SlateBlue


            '=====BorderColor
            .Series("Series1").BorderColor = Drawing.Color.Gray
            .Series("Series2").BorderColor = Drawing.Color.Gray
            .Series("Series3").BorderColor = Drawing.Color.Gray
            .Series("Series4").BorderColor = Drawing.Color.Gray
            .Series("Series5").BorderColor = Drawing.Color.Gray
            .Series("Series6").BorderColor = Drawing.Color.Gray       
            .Series("Series7").BorderColor = Drawing.Color.Gray
            .Series("Series8").BorderColor = Drawing.Color.Gray


            '=====Values
            .ResetAutoValues()
            If Me.lblTcountone.Text = 0 Then

            Else
                .Series("Series1").Points.AddY(CDbl(lbltcountone.Text))
            End If

            If Me.lblTcounttwo.Text = 0 Then

            Else
                .Series("Series2").Points.AddY(CDbl(lbltcounttwo.Text))
            End If

            If Me.lblTcountthree.Text = 0 Then

            Else
                .Series("Series3").Points.AddY(CDbl(lbltcountthree.Text))
            End If

            If Me.lblTcountfour.Text = 0 Then

            Else
                .Series("Series4").Points.AddY(CDbl(lbltcountfour.Text))
            End If

            If Me.lblTcountfive.Text = 0 Then

            Else
                .Series("Series5").Points.AddY(CDbl(lbltcountfive.Text))
            End If

            If Me.lblTcountsix.Text = 0 Then

            Else
                .Series("Series6").Points.AddY(CDbl(lbltcountsix.Text))
            End If

            If Me.lblTcountseven.Text = 0 Then

            Else
                .Series("Series7").Points.AddY(CDbl(lbltcountseven.Text))
            End If

            If Me.lblTcountNull.Text = 0 Then

            Else
                .Series("Series8").Points.AddY(CDbl(lbltcountnull.Text))
            End If


        End With

    End Sub

Thanks again