HelloEveryone...
I hve been trying tofigure out wht is wrong with this codes:
"Private Sub ListView1_Click()
Dim w, m, r, t, u, I, l As Double
r = Val(ListView1.SelectedItem.SubItems(1))
t = Val(ListView1.SelectedItem.SubItems(2))
u = Val(ListView1.SelectedItem.SubItems(3))
I = Val(ListView1.SelectedItem.SubItems(4))
l = Val(ListView1.SelectedItem.SubItems(5))
m = Val(ListView1.SelectedItem.SubItems(6))
w = r + t + u + I + l + m
Text8=w
Text9 = ListView1.SelectedItem.SubItems(8)
End Sub"
I got the error: Type mismatch and it highlight this prt: w = r + t + u + I + l + m
