I am able to draw the graph But the problem is that i am not able to show decimal Variation in my Graph.

Value that is plotted
it is doing decimal approximation
for value > 1.5 it is taking as 2
for value < 1.5 it is taking as 1

Code for the Plot is :

Private Sub Form_Load()
Dim i As Integer
MSChart2.ToDefaults
With MSChart2
.chartType = VtChChartType2dXY
'For X axis Plot

.Plot.Axis(VtChAxisIdX).Pen.VtColor.Blue = True
.Plot.Axis(VtChAxisIdX).Tick.Style = VtChAxisTickStyleOutside
.Plot.SeriesCollection(1).SecondaryAxis = False
.Plot.Projection = VtProjectionTypePerspective
'For Y axis Plot
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
.Plot.DataSeriesInRow = False
.Plot.Axis(VtChAxisIdY).AxisTitle.Text = "SNR/BER Value"
.Plot.Axis(VtChAxisIdY).Pen.VtColor.Green = True
'Properties of Chart
.Legend.TextLayout.HorzAlignment = 2
.AllowDithering = True
.ShowLegend = True
.Title.Text = "Tuner Performance Graph"
.Legend.TextLayout.WordWrap = True
.Legend.Location.LocationType = VtChLocationTypeLeft
.Legend.VtFont.VtColor.Blue = True
'.Legend.Location.LocationType = VtChLocationTypeTopRight
.Legend.Location.Rect.Max.Set 7560, 5132
.Legend.Location.Rect.Min.Set 1004, 4864
.Legend.VtFont.Style = VtFontStyleOutline
.Plot.UniformAxis = False

'For Plotting the Value On Graph
Dim Graph(1 To 400, 1 To 3) As Single
Dim xm As Integer
For xm = 1 To 400
Graph(xm, 1) = xm ' value for X-axis
Graph(xm, 2) = Rnd(xm) ' value for Y-axis
Next xm
'MSChart1.Plot.UniformAxis = False
.Refresh
MSChart2 = Graph ' populate chart's data grid using Graph array
.Refresh
End With
End Sub