Private Sub cmd_mal_Click()
'MULTIPLIZIEREN
Dim zahl1 As Integer
Dim zahl2 As Integer
erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text
For i = 1 To zahl2
erg = erg + zahl1
Next i
lbl_ausgabe.Caption = erg
End Sub
Private Sub cmd_minus_Click()
'SUBTRAIEREN
Dim zahl1 As Integer
Dim zahl2 As Integer
erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text
For i = 1 To 1
erg = zahl1 - zahl2
Next i
lbl_ausgabe.Caption = erg
End Sub
Private Sub cmd_ok_Click()
'ADDIEREN
Dim zahl1 As Integer
Dim zahl2 As Integer
erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text
For i = 1 To 1
erg = zahl1 + zahl2
Next i
lbl_ausgabe.Caption = erg
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Picture1_Click()
End Sub