[Visual Basic]
Private Sub AddAGroupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAGroupToolStripMenuItem.Click

        Dim frmg As New FrmAddGroup
        frmg.ShowDialog()

        If frmg.DialogResult = Windows.Forms.DialogResult.OK Then
            IMC.BeginAddGroup(frmg.AddGroup_TB.Text)
        End If

        frmg.Close()
        frmg.Dispose()
    End Sub

[Visual Basic]
Private Sub IMC_OnGroupAdded(ByVal GroupName As String) Handles IMC.OnGroupAdded
        Debug.WriteLine("Group added : " & GroupName)
    End Sub

[Visual Basic]
    Private Sub IMC_OnTotalNumberOfGroupsExceeds(ByVal GroupName As String) Handles IMC.OnTotalNumberOfGroupsExceeds
        Debug.WriteLine("Group cannot be added as Total Number Of Groups Exceeded :" & GroupName)
    End Sub