Private Sub UserForm_Initialize()
menge = 20
hoch = 10
breit = 5
lang = 5
zufall = 10
parameter.TFanzahl.Text = menge
parameter.TFhoehe.Text = hoch
parameter.TFbreite.Text = breit
parameter.TFlaenge.Text = lang
parameter.TFzufall.Text = zufall
End Sub

Private Sub createButton_Click()
For i = 1 To menge
wuerfelModul.setzeQuad hoch, lang, breit, zufall
Next i
TFhoehe.SetFocus
End Sub

Private Sub deleteButton_Click()
wuerfelModul.loeschen
End Sub

'-----------Anzahl---------------------------------
Private Sub SliderAnzahl_Change()
TFanzahl = SliderAnzahl
menge = SliderAnzahl
End Sub

Private Sub SliderAnzahl_Scroll()
SliderAnzahl_Change
End Sub

Private Sub TFanzahl_Change()
SliderAnzahl = TFanzahl
menge = TFanzahl
End Sub

'-----------Höhe--------------------------------
Private Sub SliderHoehe_Change()
TFhoehe = SliderHoehe
hoch = SliderHoehe
End Sub

Private Sub SliderHoehe_Scroll()
SliderHoehe_Change
End Sub

Private Sub TFhoehe_Change()
SliderHoehe = TFhoehe
hoch = TFhoehe
End Sub

'-----------Breite---------------------------------
Private Sub SliderBreite_Change()
TFbreite = SliderBreite
breit = SliderBreite
End Sub

Private Sub SliderBreite_Scroll()
SliderBreite_Change
End Sub

Private Sub TFbreite_Change()
SliderBreite = TFbreite
breit = TFbreite
End Sub

'-----------Länge---------------------------------
Private Sub SliderLaenge_Change()
TFlaenge = SliderLaenge
lang = SliderLaenge
End Sub

Private Sub SliderLaenge_Scroll()
SliderLaenge_Change
End Sub

Private Sub TFlaenge_Change()
SliderLaenge = TFlaenge
lang = TFlaenge
End Sub

'-----------Zufall---------------------------------
Private Sub SliderZufall_Change()
TFzufall = SliderZufall
zufall = SliderZufall
End Sub

Private Sub SliderZufall_Scroll()
SliderZufall_Change
End Sub

Private Sub TFzufall_Change()
SliderZufall = TFzufall
zufall = TFzufall
End Sub