公共模块类怎么写？

[yejian520]

Me.Left = 0
Me.Top = 0
Me.Width = Form_Top.Width - 3300
Me.Height = Form_Top.Height - GetTaskbarHeight - 2300

如上代码是放在子窗口中的，让它固定一个大小，我现在想把它做成一个公共模块类，让其它窗口也调用这个，这样就不用每个窗口都要写了，可是用Me好像会出错，提示无效使用Me关键字 怎么处理，是不是要做成一个传送Form参数的类？

大家给点意见

[threenewbee]

新建一个公共模块：

Sub ResizeWindow(ByRef f As Object, ByRef f_top As Object)
    f.Left = 0
    f.Top = 0
    f.Width = f_top.Width - 3300
    f.Height = f_top.Height - GetTaskbarHeight - 2300
End Sub

Function GetTaskbarHeight()
    ... '把GetTaskbarHeight和相关API声明也放过来
End Function

调用：

Call ResizeWindow(Me, Form_Top)

[yejian520]

楼上的解决了我的问题 结帖