Dim b As JDABuilder
b.Initialize("JDA",token)
b.setAutoReconnect(True).setEnableShutdownHook(True)
b.setToken(token)
jda.Initialize("JDA",b.build)
Dim sh As DefaultShardManagerBuilder
sh.Initialize("ShardManager",token)
sh.setToken(token)
sh.build
jda.awaitReady