请教各位一个问题，如何设置MSchart的横轴的间距？谢谢.

Question

我的代码如下：
Private Sub Command1_click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Ramon\桌面\tlq.mdb;Persist Security Info=False"
db.Open
rs.Open "select * from tao", db, adOpenKeyset, adLockOptimistic
'Set MSChart1.DataSource = rs    rs.MoveLast
    rs.MoveFirst    If rs.RecordCount = 0 Then
            MsgBox "请在数据库中输入数据!", vbCritical
        Exit Sub
      End If
    With MSChart1
            .TitleText = "直方图示例"
            .RowCount = rs.RecordCount
            For i = 1 To rs.RecordCount
                  .Row = i                  .RowLabel = rs.Fields("年份")
                  rs.MoveNext
            Next i
    End With    rs.Close
End Sub
代码生成的默认间距是1，我想把它改成2或3的间距，不知道怎么实现，请各位指点迷津！谢谢。