Visual Basic

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