Bar Chart in VB

Dim I As Integer
Private Sub Form_Load()
Me.DrawWidth = 3
Me.FontBold = True
Width = 11000: Height = 7000
Move 500, 500
BackColor = QBColor(7)
Scale (0, 110)-(130, 0)
For I = 100 To 10 Step -10
 Line (0, I)-(2, I)
 CurrentY = CurrentY + 2
 Print I
 Line (ScaleWidth - 2, I)-(ScaleWidth, I)
 CurrentY = CurrentY + 2
 CurrentX = ScaleWidth - 9
 Print I
Next I
Line (10, 0)-(20, 45), vbMagenta, BF
Line (20, 0)-(30, 55), vbGreen, BF

Line (40, 0)-(50, 30), vbMagenta, BF
Line (50, 0)-(60, 40), vbGreen, BF

Line (70, 0)-(80, 40), vbMagenta, BF
Line (80, 0)-(90, 65), vbGreen, BF

Line (100, 0)-(110, 75), vbMagenta, BF
Line (110, 0)-(120, 55), vbGreen, BF

CurrentX = 30
CurrentY = 105
Me.FontSize = 24
Me.ForeColor = vbWhite
Print "Comparative Bar Chart"

CurrentX = 47
CurrentY = 95
Me.FontSize = 16
Me.ForeColor = vbBlack
Print "First Vs Second"

Line (45, 87)-(79, 86), vbRed, BF

End Sub