Visual Basic

Dim PrevCommentCount As Integer
Dim CurrCommentCount As Integer
Dim CWSName As String
Dim PWSName As String

'Sh corresponds to current sheet
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    CWSName = Sh.Name
    CurrCommentCount = Sh.Comments.Count
End Sub

'Sh corresponds to previous sheet
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)   
    PWSName = Sh.Name
    PrevCommentCount = Sh.Comments.Count
    
    If PrevCommentCount <> CurrCommentCount And PWSName = CWSName Then
        Call Utils.UpdateCommentForSheet(Sh.Name)
    End If
  
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Comments.Count <> CurrCommentCount Then
        Call Utils.UpdateCommentForSheet(Sh.Name)
        CurrCommentCount = Sh.Comments.Count
    End If
End Sub

Option Explicit

Dim m_changedComment_Cell As Range
Dim m_changedComment_Text As String

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, _
                                        ByVal Target As Range)
    '--when the selection is changed, see if a
    '-- comment was added/deleted/modified                                        
    LookForChangedComment
End Sub

Private Sub LookForChangedComment()
    On Error GoTo End_LookForChangedComment
    
    Dim sMessage As String
    If m_changedComment_Text <> m_changedComment_Cell.NoteText Then
        '-- a comment has been changed; do something useful?
        
        sMessage = "Changed Comment Occured" & vbCrLf & _
          "Cell:  " & m_changedComment_Cell.Address & vbCrLf & _
          "Old Value: " & m_changedComment_Text & vbCrLf & _
          "New value: " & m_changedComment_Cell.NoteText
          
        MsgBox sMessage
              
    End If
    
End_LookForChangedComment:
    Set m_changedComment_Cell = ActiveCell
    m_changedComment_Text = m_changedComment_Cell.NoteText
    
End Sub

Public Class PtBounds
    Public Left As Integer
    Public Right As Integer
    Public Top As Integer
    Public Bottom As Integer
    Public Width As Integer
    Public Height As Integer
    Public hoffset As Integer
    Public woffset As Integer

    Public Function op_Compare(ByRef operand As PtBounds) As Boolean
        Return (Me.Left = operand.Left) And _
               (Me.Right = operand.Right) And _
               (Me.Top = operand.Top) And _
               (Me.Bottom = operand.Bottom) And _
               (Me.Width = operand.Width) And _
               (Me.Height = operand.Height) And _
               (Me.hOffset = operand.hOffset) And _
               (Me.wOffset = operand.wOffset)
    End Function
End Class
<code>Me</code> refers to the current instance of the class, while <code>operand</code> refers to the instance that is passed to the method:
<pre>    Dim myObject1 As New PtBounds
    Dim myObject2 As New PtBounds
    '  Setup both objects with appropriate values...
    If myObject1.op_Compare(myObject2) Then
        '  Both objects are equal!
    Else
        '  The objects are not equal!
    End If

Private Sub mySubroutine(ByVal TagData As String)
    ' Code for your subroutine goes here.
    ' TagData is the data that was passed from the Click Event handler.
End Sub
 
Private Sub ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim tagData As String = CType(CType(sender, System.Windows.Forms.Button).Tag, String))
    MsgBox("Whatever message box you had here displaying the Tag data...")
    ' Now call your other functions...
    mySubroutine(tagData)
End Sub

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog