BitShares | Peer to Peer Exchange System | Cryptocurrency library

Dim list3 As New List(Of String)

Private Sub gen_Click(sender As Object, e As EventArgs) Handles gen.Click
    Dim num As Decimal = 10000
    Dim i As Decimal = Decimal.One
    Do While (Decimal.Compare(i, num) <= 0)
        list3 = New List(Of String)

        If crypto.Checked Then
            list3.AddRange(Strings.Split("BTC eBTC cryptocurrency crypto currency blockchain wallet p2p Auroracoin Blackcoin Coinye Bitcoin Dash Decred Dogecoin DigitalNote Ehtereum Gridcoin Litecoin Mastercoin MazaCoin Monero Namecoin Nxt Peercoin Primecoin Ripple Titcoin Zerocoin Satoshi Stellar Shadow Lisk virtualcurrency virtualmoney steem NEM MaidSafeCoin Coins Mining MiningCoins Ghz Nxt Synereo DigixDAO Factom Waves Emercoin Bitshares Peerplays Stellar Btyecoin Siacoin Counterparty tther gamecredits xaurum bitcrystals storjcoinX SysCoin YbCoin AgorasTokens NameCoin NautilusCoin FedoraCoin Swiscoin SARCoin BitcoinDark VPNCoin SuperNET Omni DigiByte Blackcoin GridCoin Stratis IOCoin SolarCoin RubyCoin Rimbit FeatherCoin DNotes VeriCoin VCash HiCoin MonaCoin Expanse ShadowCash Voxels MintCoin EarthCoin Jinn BreakoutState Nexus Scotcoin Clams Primecoin Quark LBRY GlobalCurrency ReddCoin HitCoin Blocknet NAVCoin Radium Novacoin Worldcoin EvergreenCoin AuroraCoin SaluS Gulden DigitalNote CureCoin Obits AsiaCoin Vertcoin Rise Quora BoostCoin Startcoint ReeCoin MMNXT MegaCoin Adzcoin Pebblecoin NuBits Ixcoin XCurrency Virtacoin GoldCoin ProjectDecorum Bitshares BilShares BitBay HempCoin Crypti LIQUID Stress", " ", -1, CompareMethod.Binary))
        End If

    Loop

End Sub

Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
    list3.Clear()

End Sub