[VB6]Frequenza con cui si presentanto certi numeri

[oregon]

Allora ... modifichi questa cosi'

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

e ovviamente inserisci la chiamata al lancio qui

Private Sub a_Click()
  Dim i As Integer  
  lanci.Text = InputBox("Dimmi numero lanci")
  For i=0 To Val(lanci.Text)
     Lancio_Click
     DoEvents
  Next i
End Sub