Try
            Dim callBack As System.AsyncCallback
            Dim bet As Dice.Client.Web.PlaceBetResponse = DiceWebAPI.BeginPlaceBet(send.Session, payin, 0, 499499, Rnd(), Currencies.Doge, callBack, Nothing)

            MsgBox(bet.Success)
            While bet.Success = False

            End While
            If bet.Success = True Then
                InputBox("", "", bet.BetId)
                Process.Start("https://www.999dice.com/Bets/?b=" & bet.BetId)
                payout = (bet.PayOut - Math.Round((My.Settings.balance * 1000000) / 100000))
                MsgBox("Bet payin: " & payin & vbNewLine & "Payout: " & bet.PayOut)
                profit_text = profit_text + (bet.PayOut - payin)
                profit.Text = "Profit: " & profit_text
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try