VB用mschart画折线图，怎么做到变换坐标

VB用mschart画折线图，怎样做到变换坐标？
我想变换坐标，比如说新增加一个缩短按钮，点击按钮，横坐标就会变短。

这是我的代码：
请大家帮忙
Option Explicit


Private Sub cmd_close_Click()
  Unload Me
End Sub

Private Sub cmd_pic_Click()
  Dim s As String, i As Long, ss() As String
  Dim cn As New adodb.Connection
  Dim rs As New adodb.Recordset
  cn.CursorLocation = adUseClient
   
  cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
  rs.Open "select number,sdatetime,data from udata", cn, adOpenStatic, adLockOptimistic
   
  If rs.RecordCount = 0 Then Exit Sub
  ReDim ss(rs.RecordCount)
  With MSChart1
  .RowCount = rs.RecordCount
  .ColumnCount = 1
   
  .chartType = VtChChartType2dLine
  For i = 1 To rs.RecordCount
  .Row = i
  .Data = rs.Fields("data")  
  .RowLabel = rs.Fields("sdatetime")
  rs.MoveNext
  Next i
  End With
   
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing
End Sub

Private Sub Form_Load()
   
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
End Sub

Private Sub Form_Resize()
  MSChart1.Width = Me.Width - 1000
  MSChart1.Left = (Me.Width - MSChart1.Width) / 2
End Sub


------解决方案--------------------
人家自己在玩，我又何必凑热闹呢？
------解决方案--------------------
还是内定了，内定了就说一下，别让大家瞎忙活
------解决方案--------------------

探讨

引用:
http://topic.****.net/u/20090915/10/a94369e4-53de-4c4e-b12a-66d96b5431ba.html

人家帮我调的程序，帮助特别大，所以给他分了，别这样啊，都是朋友

'这个不就是你要的属性吗？
  MSChart1.chartType = VtChChartType2dLine
'以下不就是你要的小点点吗，你想看X或是+标记？
    MSChart1.Plot.SeriesCollection.Item(1).SeriesMarker.Auto = False
    With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
        .Visible = True '显示标记
        .Size = 50 '标记大小
        .Style = VtMarkerStyleFilledCircle '标记样式
        .FillColor.Automatic = False
        .FillColor.Set 0, 255, 255 '填充色
    End With

这个可以用控件完成吗？

------解决方案--------------------
只要大家提出合理建议或代码,我想楼主会考虑给分的,千万不要误会.
------解决方案--------------------
看来我只有顶的份了