Private WithEvents client As DiscordSocketClient
    Async Sub Start()
        client = New DiscordSocketClient(New DiscordSocketConfig())
        Dim token = "replace with real"
        Await client.LoginAsync(TokenType.Bot, token)
        Await client.StartAsync()
        Await Task.Delay(-1)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Start()
    End Sub