scusami..con calma provo a spiegarti
io ho un
command button dove devo chiedere il numero di lanci di un dado
una text dove ho messo il numero di lanci da fare
un altro command dove viene eseguito il lacio dei 2 dadi
e due label dove sono inseriti i valori casuali usciti dal lancio del dado
e fin qua ci so riuscito scrivendo

Dim b As Intege
Dim c As Integer
Private Sub a_Click()
lanci.Text = InputBox("Dimmi numero lanci")
End Sub

Private Sub LANCIO_Click()
Randomize
b = Int(Rnd * 6) + 1
dado.Caption = b
Randomize
c = Int(Rnd * 6) + 1
dado2.Caption = c
End Sub

Private Sub var_casuale_Click()
If var_casuale.Visible = True Then
var_statistica.Visible = False
End If
End Sub
Private Sub var_statistica_Click()
If var_statistica.Visible = True Then
var_casuale.Visible = False
End If
End Sub




ora io devo fre altre 12 label(un array)
dove devo scrivere in qualche modo la frequenza con cui sui tot lanci del dado detti in precedenza,la somma dei numeri dei 2 dadi
dia 2,3,4 fino a 12
spero che tu bbia capito