I need help

I am making a neopoints calculator in vb6 and here is the calculation code

Code (Text):

1. Private Sub Command1_Click()
2. Dim ratio As Double
3. Dim results As Double
4. Dim Points As Double
5. Select Case Combo1.Text
6.             Case "200m Peanut Dash"
7.             ratio = 0.75
8.             Case Else
9.             ratio = 1
10.             End Select
11. Points = ratio * results
12. Lblresults.Text = Points
13. End Sub

it gives me the error when I clikc the button

Then it shows me the code and highlights Private Sub Command1_Click()

 

I fixed it
it is supposed to be

Code (Text):

1. Lblresults.Caption = Points

not

Code (Text):

1. Lblresults.text = Points