Hello
I want like this:
but this not working
Any help please
Code:
Private Sub Text1_Change()
Case 40
Text2.Text = 1
Case 41
Text.Text = 2
Text 42
Text2.Text = 3
.
.
.
Case 60
Text2.Text = 20
End SelectCode:
Private Sub Text1_Change()
Select Case Text1.Text
Case 40 To 60
Dim i
For i = 1 To 20
Text2.Text = 1 + i
Next i
End Select
End SubAny help please