so here is my problem...
i just can't figure out how to start betting
![Sad](https://bitcointalk.org/Smileys/default/sad.gif)
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?