Visual Basic

<br />
	Dim mnuItem As MenuItem<br />
	mnuItem = New Windows.Forms.MenuItem(MenuItemName, New System.EventHandler(AddressOf Me.MenuItem_Click))<br />
	mnuMain.MenuItems.Add(mnuItem)

Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
    Dim ItemIx As Integer = sender.index<br />
End Sub

ListView1.Items.Add( TextBox1.Text )

Class DiceDisplay
  Property Display as PictureBox
  Property NoOfDice as int16
  Property Pips as int16
  Public Sub RollEm
    Dim Roller as DiceRoller(NoOfDice, Pips)
    Roller.Roll
    DrawDice(Roller)
  End Function
  Public Sub DrawDice(ByRef Results as DiceRoller)
    Dim Index as Int16
    For Index = 1 to NoOfDice
      DrawDiceImage(Roller.Results(Index))
    Next Index
  End sub
End Class
Class DiceRoller
  Property Results as arraylist
  Public Sub Roll(ByVal NoOfDice as int16, ByVal Pips as int16)
    Dim Index as int16
    For Index = 1 to NoOfDice
      Results.Add(convert.toint16(rnd(Pips)))
    Next Index
  End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newForm As New Form2
 
        newForm.strDataThisFormNeeds = TextBox1.Text
        newForm.Show()
    End Sub
End Class

Public Class Form2
    Inherits System.Windows.Forms.Form
 
    Public strDataThisFormNeeds As String
 
    Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        TextBox1.Text = strDataThisFormNeeds
    End Sub
End Class