Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim people As Person() = {New Person("Bob", "Smith"), New Person("Chris", "Adams")}
        Array.Sort(people)
        For Each p As Person In people
            Console.WriteLine(p.FirstName & ":" & p.LastName)
        Next
    End Sub
End Class

Public Structure Person
    Implements IComparable(Of Person)

    Public FirstName As String
    Public LastName As String

    Public Sub New(ByVal first As String, ByVal last As String)
        FirstName = first
        LastName = last
    End Sub

    Public Function CompareTo(ByVal other As Person) As Integer Implements System.IComparable(Of Person).CompareTo
        Return String.Compare(Me.LastName, other.LastName)
    End Function
End Structure

if s1>s2 and e1<e2 Then
  s1-e1 occurs inbetween s2-e2(So, Overlapping=e1-s1+1)
elseif s1<s2 and e1>e2 Then
  s2-e2 occurs inbetween s1-e1(So, Overlapping=e2-s2+1)
elseif s1 > s2 and s1 < e2 then
  Overlapping=e2-s1+1
elseif e1>s2 and e1<e2
  Overlapping=e1-s2+1
else
  Overlapping=0

Private Sub SomeSub(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
    If TypeOf sender Is Button Then
        Dim s As Button = DirectCast(sender, Button)
        Select Case s.Name
            Case "Button1"
                ' Do something
            Case "Button2"
                ' Do something
            Case Else
                ' This should never happen, but then again...
        End Select
    End If
End Sub