如何自己写OCX？？？？

[yagas]

我写的，但是不起作用：

Function myreplace(inputstring)
inputstring = Replace(inputstring, vbCrLf, vbNullString)
End Function

要怎充写呀？？？？
写外部OCX，完全共享的

[AechoJohn]

问题和内容对不上吧！
如果想写自己的Ocx，在Vb中照着ActiveX ocx工程向导Next就行了，很简单！

[shawls]

public Function myreplace(inputstring)
inputstring = Replace(inputstring, vbCrLf, vbNullString)
End Function

做成公共的函数

[shawls]

修改

public Function myreplace(byval inputstring as string ) as string
myreplace = Replace(inputstring, vbCrLf, vbNullString)
End Function

建议这样