strdup函数 strdup函数多线程安全

有个关于VB中StrDup的函数怎么写？专用子按钮1单击（ByVal发送器为系统对象，ByVal e As公司系统.EventArgs)手动按钮1。单击dim S1%d...