VB Code:
Dim num As Integer
Private Sub cmdclick_Click()
picscore.Cls
NumberCount = 1
End Sub
Private Sub cmdclick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
num = num + 1
picscore.Print num
End Sub
Private Sub cmdprocess_Click()
'
'
'
Dim Names As String, Location As Single, First As String, Last As String
picscore.Cls
nom = Val(txtname.Text)
Locations = InStr(nom, " ")
First = Left(nom, Locations - 1)
Last = Right(nom, Len(nom) - Locations)
ScoreRound = Round(FormatNumber(Score, Number))
Number = (txtdec.Text)
picscore.Print First; " "; ","
picscore.Print "Your Score Is:"
picscore.Print Last
End Sub
Private Sub cmdquit_Click()
End
End Sub
Private Sub Command1_Click()
NumberCount = 1
End Sub