'フォームにPictureBoxとCommandButton2個置いてから、コピペで実行可能
Option Explicit
Dim Data(1 To 100) As Double


Private Sub Form_Load()
Dim i As Integer

'グラフを書くデータ作成
For i = 1 To 100
    'exp はエクスポネンシャルと読み、自然対数の底のi乗という意味
     Data(i) = Exp(0.1 * i)
Next

'ピクチャーボックス初期化 (もっと綺麗な書き方もありますが、忘れたので)
Picture1.BackColor = RGB(255, 255, 255)
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3  'ピクセルモード
Picture1.ScaleWidth = 100 'ちなみに.ScaleWidthと.Widthは全然違うので注意
Picture1.ScaleHeight = 100
Picture1.Scale (0, 1000)-(100, 0) '←ここがポイント　座標系の設定

End Sub


Private Sub Command1_Click()
Dim i As Integer

Picture1.Cls '画面をクリアする

'グラフを書く（（用途がデバッグなら）書きながら計算しても良いが、今回はData（100）を上で作った。）
For i = 1 To 100
    '黒で書く
     Picture1.PSet (i, Data(i)), RGB(0, 0, 0)
Next
End Sub

Private Sub Command2_Click()
Dim i As Integer

Picture1.Cls '画面をクリアする

'「折れ線」グラフを書く
For i = 1 To 100
    '青で書く、i = 1 はエラーになるのでifで飛ばす。
    If i <> 1 Then
     Picture1.Line (i - 1, Data(i - 1))-(i, Data(i)), RGB(0, 0, 255)
    End If
Next

End Sub