All pastes #574900 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-06-18 19:38 UTC
rendered paste body
                i = UBound(Cijferrij)
                ReDim Preserve Cijferrij(0 To (i + 1)) As Single
                Cijferrij(i + 1) = lbl_nummer.Caption





        Dim aantal As Integer
        aantal = UBound(Cijferrij)
        For j = 1 To aantal
           check = Cijferrij(j)
            If check = lbl_nummer.Caption Then
                opnieuw = 1
            End If
        Next