発生したイベントを取得する

Private Sub cld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cld1.ValueChanged, cld2.ValueChanged, cld3.ValueChanged, cld4.ValueChanged
        Dim cld As DateTimePicker = CType(sender, DateTimePicker)

        Select Case cld.Name
            Case "cld1"
                first_transaction.Text = Format(cld1.Value, "yyyy/MM/dd")
            Case "cld2"
                contracted.Text = Format(cld2.Value, "yyyy/MM/dd")
        End Select

    End Sub