谁能帮我注释一下，最好是每排都要注释！

Private Function MouseMoveOn(ByVal CmdNumber As Integer)

Dim I As Integer, TempName As String

    For I = 1 To MaxButtons
        TempName = "CmdBut" & Format(I, "0")
        If I = CmdNumber Then
            If Me(TempName).BackStyle <> 1 Then
                With Me(TempName)
                    .BackStyle = 1
                    .BorderStyle = 1
                    .BorderColor = 16777215 '8388608
                    .BackColor = 4872561
                    .ForeColor = vbBlack
                End With
            End If
        Else
            If Me(TempName).BackStyle = 1 Then
                With Me(TempName)
                    .BackStyle = 0
                    .BorderStyle = 0
                    .BorderColor = 16777215 '8388608
                    .BackColor = 4872561
                    .ForeColor = vbBlack
                End With
            End If
        End If
    Next
End Function