กราฟ vb.net กำหนด ขนาดของ แท่งกราฟ และ/หรือ ช่องว่าง ได้ไหมครับ

Private Sub PlotChart1()
        Dim s As New Series
        Dim k As New Series
        Dim ExpectedPlan As Integer
        s.Name = "sum"
        k.Name = "expected"
        Chart1.Series.Clear()
        ExpectedPlan = Val(Expected.Text)
        s.ChartType = SeriesChartType.Column
        s.IsValueShownAsLabel = True
        Chart1.Series(0).CustomProperties = "PointWidth = 0.5"
        k.BorderWidth = 8
        k.ChartType = SeriesChartType.Line
        Chart1.ChartAreas("ChartArea1").AxisX.MajorTickMark.Enabled = True
        Chart1.ChartAreas("ChartArea1").AxisX.Interval = 1
        Chart1.ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
        Chart1.ChartAreas("ChartArea1").AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont
        Select Case Convert.ToInt32(HR.Text)
            Case 8 To 20
                'MessageBox.Show(Convert.ToInt32(HR.Text))
                s.Points.AddXY("08:00", 0)
                s.Points.AddXY("09:00", Sum1.Text)
                s.Points.AddXY("10:00", Sum2.Text)
                s.Points.AddXY("11:00", Sum3.Text)
                s.Points.AddXY("12:00", Sum4.Text)
                s.Points.AddXY("13:00", Sum5.Text)
                s.Points.AddXY("14:00", Sum6.Text)
                s.Points.AddXY("15:00", sum7.Text)
                s.Points.AddXY("16:00", sum8.Text)
                s.Points.AddXY("17:00", Sum9.Text)
                s.Points.AddXY("18:00", Sum10.Text)
                s.Points.AddXY("19:00", Sum11.Text)
                s.Points.AddXY("20:00", Sum12.Text)
                k.Points.AddXY("08:00", ExpectedPlan)
                k.Points.AddXY("09:00", ExpectedPlan)
                k.Points.AddXY("10:00", ExpectedPlan)
                k.Points.AddXY("11:00", ExpectedPlan)
                k.Points.AddXY("12:00", ExpectedPlan)
                k.Points.AddXY("13:00", ExpectedPlan)
                k.Points.AddXY("14:00", ExpectedPlan)
                k.Points.AddXY("15:00", ExpectedPlan)
                k.Points.AddXY("16:00", ExpectedPlan)
                k.Points.AddXY("17:00", ExpectedPlan)
                k.Points.AddXY("18:00", ExpectedPlan)
                k.Points.AddXY("19:00", ExpectedPlan)
                k.Points.AddXY("20:00", ExpectedPlan)
                '///////////////////////////////////////////////////////////////////
            Case Else
                'MessageBox.Show("daaaa")
                s.Points.AddXY("20:00", 0)
                s.Points.AddXY("21:00", Sum1.Text)
                s.Points.AddXY("22:00", Sum2.Text)
                s.Points.AddXY("23:00", Sum3.Text)
                s.Points.AddXY("24:00", Sum4.Text)
                s.Points.AddXY("01:00", Sum5.Text)
                s.Points.AddXY("02:00", Sum6.Text)
                s.Points.AddXY("03:00", sum7.Text)
                s.Points.AddXY("04:00", sum8.Text)
                s.Points.AddXY("05:00", Sum9.Text)
                s.Points.AddXY("06:00", Sum10.Text)
                s.Points.AddXY("07:00", Sum11.Text)
                s.Points.AddXY("08:00", Sum12.Text)

                k.Points.AddXY("20:00", ExpectedPlan)
                k.Points.AddXY("21:00", ExpectedPlan)
                k.Points.AddXY("22:00", ExpectedPlan)
                k.Points.AddXY("23:00", ExpectedPlan)
                k.Points.AddXY("00:00", ExpectedPlan)
                k.Points.AddXY("01:00", ExpectedPlan)
                k.Points.AddXY("02:00", ExpectedPlan)
                k.Points.AddXY("03:00", ExpectedPlan)
                k.Points.AddXY("04:00", ExpectedPlan)
                k.Points.AddXY("05:00", ExpectedPlan)
                k.Points.AddXY("06:00", ExpectedPlan)
                k.Points.AddXY("07:00", ExpectedPlan)
                k.Points.AddXY("08:00", ExpectedPlan)
        End Select

     
        Chart1.ResetAutoValues()
        'Add the series to the Chart1 control.
        Chart1.Series.Add(k)
        Chart1.Series.Add(s)
    End Sub