关于共享成员的问题!

看了herry作者写的第三章共享成员后.想用这段代码应用在MDI窗口里面:
private shared sharefrm as form1
public shared propety definstance()as form1
get
if sharefrm =nothing orelse sharefrm.isdispones then
sharefrm =new form1
else
sharefrm.active()
end get
set (byval value as form1)
sharefrm=value
end set
end propety
请问有更好的方法请各位指点一下~