Why not just create a unit file with the commands you require, here is an example
Dim s As StringDim ss As String Dim sMsg As String s= "T" ss="T" If eq(s,ss) Then sMsg += "The strings are equal" Else sMsg += "The strings are not equal" End If Function eq(ByRef string1 As String, ByRef string2 As String) If Ucase$(String1) = Ucase$(String2) Then Return %TRUE Else Return %FALSE End If End Function Function neq(ByRef string1 As String, ByRef string2 As String) If Ucase$(String1) = Ucase$(String2) Then Return %FALSE Else Return %TRUE End If End Function
Bookmarks