怎么将窗体式的代码转到模块中运行啊？

Private Sub Label2_Click()

Dim Col
Private Sub CheckBox1_Click()
  If CheckBox1 Then
  Label1.Caption = "拾取颜色"
  On Error Resume Next
  Dim Sset As AcadSelectionSet '声明选择集
  Set Sset = ThisDrawing.SelectionSets.Add("SS1") 'set选择集
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  FilterType(0) = 0
  FilterData(0) = "LWPolyline,line" '只可选择多段线和直线
  Sset.SelectOnScreen FilterType, FilterData '从屏幕选择对象
  For Each ent In Sset '遍历所选择集中对象
  Col = ent.color
  Exit For
  Next
  ThisDrawing.SelectionSets("SS1").Delete
  Set Sset = Nothing
  Label1.Caption = "选择当前颜色"
  Else
  Label1.Caption = "选择所有颜色"
  End If
End Sub

Private Sub CommandButton1_Click()
  Dim Hj As String
  'Set Exc = GetObject("d:\test\计算过程.XLS")
  'Exc.Application.Visible = True
  'MsgBox Exc.Workbooks.Count
  On Error Resume Next
  CommandButton1.Enabled = False
  Dim Sset As AcadSelectionSet '声明选择集
  Set Sset = ThisDrawing.SelectionSets.Add("SS1") 'set选择集
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  FilterType(0) = 0
  FilterData(0) = "LWPolyline,line" '只可选择多段线和直线
  Sset.SelectOnScreen FilterType, FilterData '从屏幕选择对象
  For Each ent In Sset '遍历所选择集中对象
  If CheckBox1 Then
  If ent.color = Col Then
  If Hj = "" Then Hj = Round(ent.Length / 1000, 2) Else Hj = Hj & "+" & Round(ent.Length / 1000, 2)
  End If
  Else
  If Hj = "" Then Hj = Round(ent.Length / 1000, 2) Else Hj = Hj & "+" & Round(ent.Length / 1000, 2)
  End If
  Next
  TextBox1.Text = Hj
  TextBox2.Text = Evaluate(FDun(Hj))
  ThisDrawing.SelectionSets("SS1").Delete
  Set Sset = Nothing
  
End Sub

Private Sub CommandButton2_Click()
  TextBox1.SelStart = 0
  TextBox1.SelLength = TextBox1.TextLength
  TextBox1.Copy
  CommandButton1.Enabled = True
End Sub
Public Function FDun(S)
  i = 219
  Do Until Len(S) < 255
  i = i + 1
  If i = 220 Then
  Do Until Mid(S, i + 1, 1) = "+": i = i + 1: Loop
  S = Evaluate(Left(S, i)) & Right(S, Len(S) - i)
  i = 219
  End If
  Loop
  FDun = Evaluate(S)
End Function


以上代码是在窗体中运行的，现在我想改到模块中运行，应该怎么做？

我自己已经解决了，运行正常，又要将分儿给别人了，郁闷！

你可以无满意结贴，谢谢。分又不是钱。

自已解决了，比别人给你解决了，应该更有成就感，分只要你每顶顶帖子就有了。