Sub Class_Globals
Private jo As JavaObject
End Sub
Public Sub Initialize
jo = Me
End Sub
public Sub AndLong (N1 As Long, N2 As Long) As Long
Return jo.RunMethod("andLong", Array(N1, N2))
End Sub
public Sub OrLong (N1 As Long, N2 As Long) As Long
Return jo.RunMethod("orLong", Array(N1, N2))
End Sub
public Sub ShiftLeftLong (N1 As Long, Index As Int) As Long
Return jo.RunMethod("shiftLeftLong",Array(N1,Index))
End Sub
#If JAVA
public long andLong (long n1, long n2) {
return n1 & n2;
}
public long orLong (long n1, long n2) {
return n1 | n2;
}
public long shiftLeftLong (long n1, int ind) {
return n1 << ind;
}
#End If