Private wurf As New System.Random(Environment.TickCount)
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button3.Click
        Label1.Text = (wurf.Next(6) + 1).ToString()
        Label2.Text = (wurf.Next(6) + 1).ToString()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist