[RESOLVED] Type MisMAtch

[ailensamson]

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