Помогите с изображениями на Visual Basic 6

[aleksandrdss]

Нужно, чтоб в зависимости от среднего балла появлялась разная каринка, так же как и шрифт.
Со шрифтом я сделал, а картина появляется только одна (последняя: Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\3.jpg"))
Подскажите что не так. За ранее спс.

Модуль:

Option Base 1
Public Balls() As Variant
Public Kolvo As Integer

Форма:

Private Sub Command1_Click()
Cls
Kolvo = InputBox("Введите количество оценок", "Определение размерности массива")
If Kolvo > 0 Then ReDim Balls(Kolvo)
Prompt$ = "Введите оценку"
For i% = 1 To Kolvo
Title$ = "Экзамен - " & i%
Balls(i%) = InputBox(Prompt$, Title$)
Next i%
End Sub

Private Sub Command2_Click()
ForeColor = vbBlack
Font.Size = 8
Font.Italic = False
Font.Bold = False
Cls
Print
ForeColor = vbWhite
Font.Bold = True
Print " Экзаменационные оценки:"
Font.Bold = False
Print "____________________________"
ForeColor = vbBlack
Print
For i% = 1 To Kolvo
Print " Экзамен -"; i%; "               Оценка - "; Balls(i%)
Total! = Total! + Balls(i%)
Next i%
sr! = Total! / Kolvo
If sr! < 3.5 Then ForeColor = vbBlue
Font.Size = 10
Font.Italic = True
Font.Bold = True
Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\1.jpg")
If sr! >= 3.5 And sr < 4.5 Then ForeColor = vbGreen
Font.Size = 10
Font.Italic = True
Font.Bold = True
Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\2.jpg")
If sr! >= 4.5 Then ForeColor = vbRed
Font.Size = 10
Font.Italic = True
Font.Bold = True
Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\3.jpg")
Print
Print " Средний балл -"; sr!
End Sub

Private Sub Command3_Click()
End
End Sub

Замечание модератора: Используйте тег [CODE]

[aleksandrdss]

Что никто не знает?

[EducatedFool]

У вас условия распространяются только на одну строку кода.
Правильно будет так:

    sr! = Total! / Kolvo
    If sr! < 3.5 Then
        ForeColor = vbBlue
        Font.Size = 10
        Font.Italic = True
        Font.Bold = True
        Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\1.jpg")
    End If
    If sr! >= 3.5 And sr < 4.5 Then
        ForeColor = vbGreen
        Font.Size = 10
        Font.Italic = True
        Font.Bold = True
        Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\2.jpg")
    End If
    If sr! >= 4.5 Then
        ForeColor = vbRed
        Font.Size = 10
        Font.Italic = True
        Font.Bold = True
        Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\3.jpg")
    End If
    Print

Ну или как-то так:

    sr! = Total! / Kolvo
    Font.Size = 10: Font.Italic = True: Font.Bold = True
    Select Case sr!
        Case Is < 3.5
            ForeColor = vbBlue: Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\1.jpg")
        Case 3.5 To 4.5
            ForeColor = vbGreen: Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\2.jpg")
        Case Is > 4.5
            ForeColor = vbRed: Image1.Picture = LoadPicture("D:\Сапэу\О О П\4 часть\4.2\Balls\3.jpg")
    End Select

[aleksandrdss]

Спасибо, а вот ещё чтоб чистил экран от изображенения, подскажите что дописать.