Public Class Form1 Private Sub CryButton_Click(sender As Object, e As EventArgs) Handles CryButton.Click Application.Exit() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load End Sub Private Sub CryButton1_Click(sender As Object, e As EventArgs) Handles CryButton1.Click Try blist.Items.Add("This is a test of a longer string!") blist.Items.Add("This is a test of a longer string!") blist.Items.Add("This is a test of a longer string!") blist.Items.Add("This is a test of a longer string!") blist.Items.Add("This is a test of a longer string!") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)