Sub Globals
'Declare the global variables here.
Dim a(0)
End Sub
Sub App_Start
'Form1.Show
regobj.New1(False)
regex1.New1(",")
regobj.FromLibrary("regex1", "reg", B4PObject(2)) ' version <= 6.30
'regobj.FromLibrary("_main_regex1", "reg", B4PObject(2)) ' version >= 6.42
str = "split, this, string"
a() = regobj.RunMethod2("Split", str, "System.String")
Msgbox(a(0) & a(1) & a(2))
End Sub