Menampilkan nama sebuah object pada saat RUNTIME

Untuk menampilkan nama sebuah object pada saat object tersebut dikenai sebuah event seperti Click dan sebagainya adalah dengan memanfaatkan parameter "sender" sebuah object. Dapat anda lihat pada block program dibawah ini, ada parameter sender yang berfungsi untuk mengidentifikasikan object apa yang sedang melaksanakan event tertentu.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
   
End Sub

Contoh berikut ini akan menampilkan nama dari sebuah Button dengan event Click.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
   Dim btnClicked = CType(sender, Button)
   MsgBox("Nama tombol yang anda klik adalah : " & btnClicked.Name)
End Sub

Semoga bermanfaat...