Can someone HELP?
My code:

Public p1, p2
p1 = ""
p2 = ""
p1 = CreateObject("cwbx.systemNames")
p2 = CreateObject("cwbx.AS400System")
oprog = CreateObject("cwbx.Program")

p2.Define(p1.DefaultSystem)

p2.UserID = "draw"
p2.Password = "weber"
p2.PromptMode = 2
p2.Signon

=oprog.System = p2
oprog.libraryName = "webprdobx"
oprog.ProgramName = "sndsdemsg"
oprog.Call <<<<<<<<<<<<<<<<<<<<< "TYPE MISMATCH"

The code is fine until the last line. Then I get the error.

Thanks for the Help,
S Dyke