关于DLL的有关问题，

关于DLL的问题，求高手指教！
我的一个程序内容太多了，无法编译，一编译就未响应，因此只能吧部分内容制作成DLL，但是我还不太会！试了很多方法都不对！例如：
select case label1.caption
case "XXXXX"
text1.text="XXXXXX"
……
……
……
end select

像以上这样的代码，要怎么制作DLL啊？如果是直接就这样打包成DLL，在程序引用不了，因为label1，text1等这些都没有定义，如果要定义的话，我又不知道要怎么定义，求高手指教。谢谢了！

[解决办法]
类模块：

VB code

'SelectFn.clsOption ExplicitPublic Function SelectFun(ByVal slabel As String, ByRef retText As String) As Long    Select Case slabel        Case "XXXXX"            retText = "XXXXXX"            SelectFun = True        Case "YYYY"            retText = "YYYYYY"            SelectFun = True        Case Else            retText = "ZZZZZZ"            SelectFun = False    End SelectEnd Function