Private WithEvents Lstbox As ListBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Lstbox = New ListBox() Dim Pnt As Point = New Point(10, 10) LstBox.Location = Pnt Dim MSize As Size = New Size(Me.Width - 30, Me.Height - 50) LstBox.Size = MSize Me.Controls.Add(LstBox) LstBox.Visible = True For i As Integer = 1 To 100 Lstbox.Items.Add("Item Index :- " & i) Next End Sub Private Sub Lstbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lstbox.Click MessageBox.Show(Lstbox.SelectedItem.ToString(), "Test Data", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub