Vcindex = Int(Rnd * 7)
                                                      End If
     
                                                      Pixel(VCX + ((I2 - 1) * Len(Letter(0))) + I3, VCY + I1) = Vcindex
                                             End If
                                    Next
                           Next
                  Next
        End Sub

        Public Sub Noises(Amount, NColor)
                  Dim NI, Nindex
   
                  For NI = 1 To Amount
                           Nindex = 1
  
                           If NColor Then
                                    Randomize
                                    Nindex = Int(Rnd * 7)

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 下一页