Is bug?

' Is bug?

Sub Process_Globals
End Sub

Sub Globals
   Dim btn1 As Button
   Dim cb1 As CheckBox
   Dim lb1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   btn1.Initialize("") : btn1.Text="button 1" : Activity.AddView(btn1,5%x,5%y,32%x,8%y)
   'cb1.Initialize("") : cb1.Text="check 1" : Activity.AddView(cb1,5%x,15%y,32%x,8%y)
   'lb1.Initialize("") : lb1.Text="Label 1" : Activity.AddView(lb1,5%x,25%y,32%x,8%y)
End Sub

Sub Activity_Resume
   Dim v As View
   For i=0 To Activity.NumberOfViews-1
      v=Activity.GetView(i)
      If v Is Button Then Log("Button found")
      If v Is CheckBox Then Log("CheckBox found")
      If v Is Label Then Log("Label found")
   Next
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub GetViewType(v As View) As String
   If v Is Button Then Return "Button"
   If v Is CheckBox Then Return "CheckBox"
   If v Is EditText Then Return "EditText"
   If v Is ImageView Then Return "ImageView"
   If v Is Label Then Return "Label"
   If v Is ListView Then Return "ListView"
   If v Is Panel Then Return "Panel"
   If v Is ProgressBar Then Return "ProgressBar"
   If v Is RadioButton Then Return "RadioButton"
   If v Is ScrollView Then Return "ScrollView"
   If v Is SeekBar Then Return "SeekBar"
   If v Is Spinner Then Return "Spinner"
   If v Is TabHost Then Return "TabHost"
   If v Is ToggleButton Then Return "ToggleButton"
   If v Is WebView Then Return "WebView"
End Sub

If v Is CheckBox Then
 Return "CheckBox"
Else If v Is EditText Then
 ...
Else If v Is Button Then
...
Else If v Is Label Then
...