' tmp1 & tmp2 are declared as public in a module

Private Sub Command1_Click()
tmp1 = 1
genstoped = False
Do While getstoped = False
For i = 1 To 8
    x = Int(Rnd * 8)
Next i

'  THIS IS WHERE IT MESSES UP, SAYS SUB OR FORM FUNCTION NOT DEFINED  I just
want to add integers from an array.

    If gnum(1) + gnum(2) + gnum(3) + gnum(4) + gnum(5) + gnum(6) + gnum(7) +
gnum(8) = 15 Then tmp2 = gnum(1) & gnum(2) & gnum(3) & gnum(4) & gnum(5) &
gnum(6) & gnum(7) & gnum(8)
Loop

End Sub

Private Sub Command2_Click()
genstop = True
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Label3.Caption = genstoped
End Sub

Private Sub Form_Load()
Dim gnum As Variant
gnum = Array(1, 1, 1, 1, 1, 1, 1, 1)

genstoped = False
Label3.Caption = genstoped

End Sub

' If you can help me please do...

--
Thanks
David L...

<-- Remove .nospam to reply -->