Графики

[Zefirka]

может я чего-то не подключила, но графики не прорисовываются на пикчебоксе
решила попробывать код из учебника набрать, но то же не отображается
помогите исправить может что не правильно делаю
вот код

Private Sub Form_Load()
Dim CurrentName, CurrentNumber, strC As String
Dim i, j As Integer
Form1.Scale (0, 0)-(8, 8)
For i = 0 To 7
For j = 0 To 7
If (i + j) Mod 2 = 0 Then
Form1.Line (i, j)-(i + 1, j + 1), vbWhite, BF
Else: Form1.Line (i, j)-(i + 1, j + 1), vbGreen, BF
End If
Form1.CurrentX = i
Form1.CurrentY = j
Form1.Print Chr(i + 97) & Str(8 - j)
Next
Next
End Sub

 

[Tanya]

Графические функции бесполезно использовать в событии Private Sub Form_Load()
их, обычно, реализовывают в Private Sub Form_Paint()

 

[Zefirka]

спасибо огромное, все работает и пример и прога моя.
вот и верь после этого учебникам

 

[Hetman]

а там действительно этот код в "Private Sub Form_Load()"??