What happening is your CLV is showing update after adding all the views that's why it seems to be too slow. You can add sleep(0) before For loop ending like this,
If str(1) = "T" Then
p.GetView(1).Checked = True
Else
p.GetView(1).Checked = False
End If
Sleep(0) '<-- this
To see the update one by one. Though there are too many unnecessary codes in your uploaded project that is slowing down the whole process, some of those are,
Activity.AddView(p, 0, 0, 0, 0) ' line 38
p.RemoveView ' line 43
... 'line 61, 62, 64, 66 and so on