نحوه رسم گراف

[hormoz64]

با سلام از اساتید محترم میخوام که اگه میتونن نحوه کار این تابع را توضیح بدن مربوط به رسم گراف هستش
مرسی
Private Sub GraphWriting()
Dim GraphNo As Integer
If Startedd Then
X = X + 2
If FirstStepp = True Then
FirstStepp = False
For GraphNo = 1 To 4
Strip1(GraphNo).TrackMax = ParamCalculated(ParamSelected(GraphNo)) + 1
Strip1(GraphNo).TrackDisplayMax = Strip1(GraphNo).TrackMax
Strip1(GraphNo).TrackMin = ParamCalculated(ParamSelected(GraphNo)) - 1
Strip1(GraphNo).TrackDisplayMin = Strip1(GraphNo).TrackMin
Next GraphNo
Else
For GraphNo = 1 To 4
If (ParamCalculated(ParamSelected(GraphNo)) > Strip1(GraphNo).TrackMax) Then
Strip1(GraphNo).TrackMax = ParamCalculated(ParamSelected(GraphNo))
Strip1(GraphNo).TrackDisplayMax = Strip1(GraphNo).TrackMax
End If
If (ParamCalculated(ParamSelected(GraphNo)) < Strip1(GraphNo).TrackMin) Then
Strip1(GraphNo).TrackMin = ParamCalculated(ParamSelected(GraphNo))
Strip1(GraphNo).TrackDisplayMin = Strip1(GraphNo).TrackMin
End If
Next GraphNo
End If
For GraphNo = 1 To 4
Strip1(GraphNo).AddXY 0, X, (ParamCalculated(ParamSelected(GraphNo)))
Strip1(GraphNo).CaptionID = 0
Strip1(GraphNo).Caption = CStr(ParamCalculated(ParamSelected(GraphNo))) _
+ " " + VahedCalculated(ParamSelected(GraphNo))
Strip1(GraphNo).CaptionID = 1
Strip1(GraphNo).Caption = MaxValue(ParamSelected(GraphNo))
Strip1(GraphNo).CaptionID = 2
Strip1(GraphNo).Caption = MinValue(ParamSelected(GraphNo))
Next GraphNo
End If
End Sub

[hormoz64]

فوریه لطفا