Public Class Form1
 
    Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnRun.Click
        lstOutput.Items.Add("Hello World")
    End Sub
 
---
 
    Private Sub lstOutput_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles lstOutput.SelectedIndexChanged
 
    End Sub
 
---
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class