Visual Basic

' ... the Interface
Public Interface IPluginInfo
    Event MyButtonClicked As EventHandler
    Sub Process()
    ReadOnly Property Name() As String
End Interface

' ... the MDI Application
Public Class MainAppPluginhandler
    Private pluginInfo As IPluginInfo

    Public Sub New()

        (...creating an instance of IPluginInfo here)

        Try
            AddHandler pluginInfo.MyButtonClicked, AddressOf pluginInfo_ButtonClicked

            Trace.WriteLine(String.Format("+ Handler for PlugIn {0} installed in MDIForm.", pluginInfo.Name))
            pluginInfo.Process()
        Catch ex As Exception
        End Try
    End Sub

    Private Shared Sub pluginInfo_ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
        Trace.WriteLine("+ Event 'ButtonClicked' received by PlugInHandler!")
    End Sub

End Class

' ... and the plugin class
Public Class MyPlugin
    Implements IPluginInfo

    Public Event MyButtonClicked(ByVal sender As Object, ByVal e As System.EventArgs) Implements IPluginInfo.MyButtonClicked
    
    Private Sub OnMyButtonClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
        RaiseEvent MyButtonClicked(Me, Me, EventArgs.Empty)
        Trace.WriteLine("+ Event MyButtonClicked raised.")
    End Sub

    Public Sub Process() Implements IPluginInfo.Process
        Trace.WriteLine("+ Function 'Process' started in MyPlugin... wait 2 seconds.")
        Thread.Sleep(2000)
        Trace.WriteLine("+ Event MyButtonClicked' raised in MyPlugin.")
        RaiseEvent MyButtonClicked(Me, EventArgs.Empty)
    End Sub
End Class

If Len(strJnts) > 0 Then
    _gblString = CreateGUIDString()

    gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

    strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
    & " VALUES ('" & _gblString & "',  " _
    & "'" & _frmGuid & "', '" _
    & 1 & "',' " _
    & strName & "',' " _
    & _MATGuid & "',' " _
    & strJnts & "',' " _
    & Now() & "');"

    gblCMD.Connection = gblConn
    gblCMD.CommandText = strData
    Dim cmd As New System.Data.SqlClient.SqlCommand

    gblConn.Open()
    gblCMD.ExecuteNonQuery()
End If

public class NullableDateTimePicker : System.Windows.Forms.DateTimePicker
  {
    // Default Constructor
    public NullableDateTimePicker() : base()
    {
      base.Format = DateTimePickerFormat.Custom;
      NullValue = " ";
      Format = DateTimePickerFormat.Custom;
      CustomFormat = "dd MMM yyyy";

      this.DataBindings.CollectionChanged += new CollectionChangeEventHandler(DataBindings_CollectionChanged);
    }
}

//NullableDateTimePicker is the class from which DateTimePickerEditingControl class inherits.
//IDataGridViewEditingControl is the interface which DateTimePickerEditingControl class implements.
class DateTimePickerEditingControl : NullableDateTimePicker, IDataGridViewEditingControl
    {
	//Constructor
        public DateTimePickerEditingControl()
        {
            this.Format = DateTimePickerFormat.Custom;
            this.CustomFormat = "dd MMM yyyy";
        }
}