Games Roll the dice - 6 dice, 6 colors - lets roll...

Private Sub btnroll_Click
    Private tries As Int = Rnd(5,21)
    btnroll.Enabled = False
    lblresult.Text = ""

Private dicesize As Int

    ' screen adjustments
    Dim screensize As Double = GetDeviceLayoutValues.ApproximateScreenSize
    Dim devwidth As Int = GetDeviceLayoutValues.Width/2
    Dim devheight As Int = (GetDeviceLayoutValues.height/2) - 40dip
    If screensize > 8 Then
        Dim devwidth As Int = GetDeviceLayoutValues.Width
        Dim devheight As Int = GetDeviceLayoutValues.height - 80dip
        dicesize = DipToCurrent(devwidth/4)
        pnlmain.Height = DipToCurrent(devheight/2.5)
        pnlsettings.SetLayout(10dip,pnlmain.Height + 10dip,devwidth-20dip,pnlsettings.Height)
        lblresult.SetLayout(DipToCurrent(devwidth/3)-50dip,pnlmain.Height+pnlsettings.Height+20dip,400dip,60dip)
        btnroll.SetLayout(DipToCurrent(devwidth/3),pnlmain.Height+pnlsettings.Height+100dip,300dip,300dip)
    Else
        dicesize = DipToCurrent(devwidth/4)
    End If
    Log("devwidth: " & devwidth)
    Log("devheight: " & devheight)
    Log("dicesize: " & dicesize)
    '

    DiceRect.Initialize(5dip,5dip,dicesize,dicesize)

Private Sub show_panels(numpnls As Int, rolls() As Int)
    pnlmain.RemoveAllViews
    Private left As Int = 20dip
    Private top As Int  = 15dip
    For i = 1 To numpnls
        Private pnl As Panel
        pnl.Initialize("pnl")
        pnlmain.AddView(pnl,left,top,dicesize,dicesize)
        show_roll(pnl,rolls(i-1))
        If i Mod 3 = 0 Then
            left = 20dip
            top = top + dicesize + 10dip
        Else
            left = left + dicesize + 10dip
        End If
    Next
End Sub