Visual Basic

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

Public Class Form2
    Public dataFromForm1 As String
.
.
.
End Class

Public Class Form2
    Private m_dataFromForm1 As String
.
.
.
    Public Property dataFromForm1() As String
        Get
            Return m_dataFromForm1
        End Get
        Set(ByVal Value As String)
            ' Do some kind of validation of the data.
            ' If the validation tests pass,
            m_dataFromForm1 = Value
        End Set
    End Property
End Class