Sub SwitchTags()
    Dim xs As Control
    For Each xs In Me
        If xs.Tag <> "" Then
            xs.Enabled = Not xs.Enabled
        End If
    Next
End Sub

网上找到一些代码不懂？

MSDN:

Tag 属性范例
这个范例为每个被拖移的控制项显示一个唯一的图示。若想测试此范例，请将程式码贴到包含三个 PictureBox 控制项的表单的宣告区块。将 Picture1 和 Picture2 的 DragMode 属性设定为 1，然后按 F5 键执行并使用滑鼠在 Picture3 上面拖移 Picture1 和 Picture2。

Private Sub Form_Load ()
    Picture1.Tag = "ICONS\ARROWS\POINT03.ICO"
    Picture2.Tag = "ICONS\ARROWS\POINT04.ICO"
End Sub

Private Sub Picture3_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
   If State = vbEnter Then
      ' 根据每个图片方块的 Name 属性选择。
      Select Case Source.Name
      Case "Picture1"
         ' 载入 Picture1 的图示。
          Source.DragIcon = LoadPicture(Picture1.Tag)        Case "Picture2"
         ' 载入 Picture2 的图示。
          Source.DragIcon = LoadPicture(Picture2.Tag)
      End Select
   ElseIf State = vbLeave Then
      ' 当来源图示不在 Picture3 之上时，释出图示。
      Source.DragIcon = LoadPicture ()
   End If
End Sub

取反

比如窗体里有一个：Picture1.Tag不等于空时，
再针对 Picture.Enabled = Not Picture.Enabled
之后与之前有什么区别呢？ 有什么作用呢？这里不明白

看帮助吧

Private Sub Form_Load()
Dim i As Integer
    For i = 0 To 10
        Picture1.Enabled = Not Picture1.Enabled
        Debug.Print Picture1.Enabled
    Next i
End Sub