|
This should get ya going. I haven't done vb for about a year but this should work fine. Add error checking and whatever else you gotta do and it should work for ya. If you need anymore help just let me know.
Option Explicit
Private Sub DisplayMessage(intScore As Integer)
Select Case intScore
Case 0 To 58
picMessage.Print "You Can Do It!"
Case 59, 69, 79, 89
picMessage.Print "You almost made a better grade."
Case Is > 79
picMessage.Print "Excellent"
Case Else
picMessage.Print "Good Work!"
End Select
End Sub
Private Sub cmdDisplay_Click()
Dim intScore As Integer
intScore = txtScore.Text
DisplayMessage (intScore)
End Sub
___________________
|