what page control caused postback?

getPostBackControl.vb

public function getPostBackControl(page as Page) as string ' what control caused postback?

	dim control as control = nothing
	dim ctrlname as string = page.request.Params("__EVENTTARGET")
	
	if ctrlname isNot nothing andAlso ctrlname <> string.empty then
		control = page.findControl(ctrlname)
	else
		for each ctl as string in page.request.form
			dim c as control = page.findControl(ctl)
			if typeOf c is System.Web.UI.WebControls.Button then
				control = c
				exit for
			end if
		next
	end if
	
	return control.ID
	
end function