Private Sub Command2_Click()
'multipizieren
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Combo2.AddItem Text3.Text
End Sub
 
 
Private Sub Command3_Click()
Dim i As Integer
Dim str_Ergebnis As String
For i = 0 To Combo2.ListCount - 1
   str_Ergebnis = str_Ergebnis & " " & Combo2.List(i)
Next
Text4.Text = str_Ergebnis
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *