B4J Question Is testing type in Select case possible?

    Select True
        Case o Is t1
            Log("t1")
        Case o Is t2
            Log("t2")
    End Select

If o Is t1 Then
    Log("t1")
else if o Is t2 Then
    Log("t2")
End If

Select o
        Case Is t1
            Log("t1")
        Case Is t2
            Log("t2")
End Select

Sub Process_Globals
 Type t1(memberX As String)
 Type t2(memberY As String)
End Sub
Sub AppStart (Args() As String)
 Dim vt1 As t1
 Dim vt2 As t2
    
 xLogType(vt1)
 xLogType(vt2)
 'StartMessageLoop
End Sub
Sub xLogType(o As Object)
 Select GetType(o)
  Case isType("t1")
   Log("its t1")
  Case isType("t2")
   Log("its t2")
  Case Else
   Log("unknown") 
 End Select
End Sub
Sub isType(s As String) As String ' the name of the class of type t1 t2 etc MUST be in this module in globals
 Dim ret As String = Me ' get this class name
 Return ret.Replace("class ","")&"$_"&s  ' add the type class name  eg  b4j.example.main$_typeclass 
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
 Return True
End Sub

Sub Process_Globals

    Type T1(memberX As String)
    Type T2(memberY As String)
    Dim T1Type As String
    Dim T2Type As String
End Sub

Sub AppStart (Args() As String)
    Dim T1Ref As T1
    Dim T2Ref As T2
    T1Ref.Initialize
    T2Ref.Initialize
    T1Type = GetType(T1Ref)
    T2Type = GetType(T2Ref)
   
    Dim vt1 As T1
    Dim vt2 As T2
   
    xLogType(vt1)
    xLogType(vt2)
   
End Sub
Sub xLogType(o As Object)
    Select GetType (O)
        Case T1Type
            Log("Is T1")
        Case T2Type
            Log("Is T2")
        Case Else
            Log ("Unknown")
    End Select
End Sub

Sub LogType(o As Object)
   
    Dim t1 As t1
    Dim t2 As t2
           
    Select GetType(o)
        Case GetType(t1)
            Log("t1")
        Case GetType(t2)
            Log("t2")
    End Select
   
End Sub

  public static String _xlogtype(Object paramObject)
    throws Exception
  {
    switch (BA.switchObjectToInt(Common.GetType(paramObject), new Object[] { _istype("t1"), _istype("t2") }))
    {
    case 0:
      Common.Log("its t1");
      break;
    case 1:
      Common.Log("its t2");
      break;
    default:
      Common.Log("unknown");
    }
    return "";
  }

If o Is t1 Then
    Log("t1")
else if o Is t2 Then
    Log("t2")
End If