Visual Basic

Public Class SomeClass
 
    Public Event WorkCompleted(ByVal e As WorkCompletedEventArgs)
 
    ...
        RaiseEvent WorkCompleted(New WorkCompletedEventArgs(someValue, someOtherValue))
    ...
End Class
 
Public Class WorkCompletedEventArgs
    ' Expose Public properties that will
    ' return values to the subscriber.
    ' You might want to include a New (constructor)
    ' that set's these values instead of just
    ' relying on an empty constructor.

    Public Sub New(ByVal value1 As Integer, ByVal value2 As String)
        Me.myValue = value1
        Me.myString = value2
    End Sub
End Class

Dim num10 As Integer  ' Number of $10 bills
  Dim Num20 As Integer   ' Number of $20 bills
  Dim dAmt As Double   ' Amount of money to be converted

  dAmt = 50.35

  Num20 = Int(dAmt) / 20

  dAmt = dAmt - (Num20 * 20)

  Num10 = Int(dAmt) / 10

  MsgBox("Number of $20: " + CStr(Num20) + "  Number of $10: " + CStr(num10))

If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
               Dim fi As New FileInfo(OpenFileDialog1.FileName)
               Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=;Data Source=" & fi.DirectoryName
               Dim objConn As New OleDbConnection(sConnectionString)
               Dim objDataSet As DataSet = New DataSet()
               objConn.Open()
               Dim objCmdSelect As New OleDbCommand("select * from [Joint Restraint Assignments]" & fi.Name, objConn)
               Dim objAdapter1 As New OleDbDataAdapter
               objAdapter1.SelectCommand = objCmdSelect
               objAdapter1.Fill(objDataSet, "test")
               DataGridView1.DataSource = objDataSet.Tables(0).DefaultView
               objConn.Close()
           End If