Public Sub graphmeth()
Form1.Picture1.DrawWidth =  1 
Form1.Picture1.BackColor = vbCyan
Form1.Picture1.Scale (- 1 ,  4000 )-( 45 , - 500 )
Form1.Picture1.Line (- 1 ,  0 )-( 45 ,  0 ), vbBlack
Form1.Picture1.Line (- 0 . 5 ,  4000 )-(- 0 . 5 , - 500 ), vbBlack
Form1.Picture1.DrawWidth =  3 
Picture1.FontSize =  3 
For i =  0  To  39 
    Form1.Picture1.PSet (i, technum(i)), vbBlack
    If i >  0  Then
        Form1.Picture1.Line (i -  1 , technum(i -  1 ))-(i, technum(i)), vbBlack
        End If
        Picture1.Print technum(i) ' вот здесь рядом с каждой точкой появляется ее значение. Хотелось бы, чтобы я мог управлять  
                                           'расположением вывода значений.
    Next i
'SavePicture Picture1.Image, "123.bmp"
End Sub

Public Sub graphmeth()
Form1.Picture1.DrawWidth =  1 
Form1.Picture1.BackColor = vbCyan
Form1.Picture1.Scale (- 1 ,  4000 )-( 45 , - 500 )
Form1.Picture1.Line (- 1 ,  0 )-( 45 ,  0 ), vbBlack
Form1.Picture1.Line (- 0 . 5 ,  4000 )-(- 0 . 5 , - 500 ), vbBlack
Form1.Picture1.DrawWidth =  3 
Picture1.FontSize =  3 
Picture1.CurrentX =  10 
Picture1.CurrentY =  3500 
Picture1.Print "Êîëè÷åñòâî òåõíîãåííûõ êàòàñòðîô çà âåñü ïåðèîä ïðàâëåíèÿ"
Picture1.FontSize =  1     'первый случай
For i =  0  To  39 
    Form1.Picture1.PSet (i, technum(i)), vbBlack
    If i >  0  Then
        Form1.Picture1.Line (i -  1 , technum(i -  1 ))-(i, technum(i)), vbBlack
        End If
         
            Picture1.FontSize =  0 . 5    'размер шрифта 2
            Picture1.CurrentX = i      ' сбиваются непонятно куда
            Picture1.CurrentY = - 20 
            Picture1.Print i +  1991 , "     "
    Next i
SavePicture Picture1.Image, "123.bmp"
End Sub