[Help needed] 999dice.com bet bot (Api problems) [VB.net]

[SloRunner]

so here is my problem...

i just can't figure out how to start betting

Code:

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

some help maybe?

[remon78eg]

//C# code

          private void BetComplete(IAsyncResult ar) {
          }

           private void PlaceBet(){
                IAsyncResult res1 = DiceWebAPI.BeginPlaceBet(Session, decimal.Parse("-0.01000000"), 0, 499499, 333, Currency, BetComplete, null);
                while (!res1.IsCompleted)
                {
                    Thread.Sleep(1);
                }
                var res2 = DiceWebAPI.EndPlaceBet(res1);
                if (!res2.Success) { MessageBox.Show("error1"); return; }
                var s = res2.Secret;
           }

[remon78eg]

        private bool PlaceBet(){
            var res = DiceWebAPI.PlaceBet(Session, decimal.Parse("-0.00000100"), 0, 499499, 333, Currency);
            if (!res.Success) { return false; }
            string s= res.Secret.ToString();
            string b= Session[Currency].Balance.ToString("0.00000000");
            return true;
        }