Hi
szerintetek mi a hibaa ebben a kódban?
Private Sub vesz_Click()
If List1.Text <> '''' Then
s1 = Left(List1.Text, InStr(List1.Text, ''*'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''*'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
index = index - listitem
ered.Text = index
i = i - 1
Else
d = MsgBox(''Nincs adat!'', vbInformation, ''Hiba'')
End If
End Sub
mer csak a list1.list utolsó elemét vonja ki rendesen
köszi
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/