Imports PluginAPI
Imports System


Public Class Plugin


    Public Function Start(ByVal App As Object, Fnkt As String, Parameters As Object)
        Try
            Select Case UCase(Fnkt)
                Case "FORMULARAKTUALISIEREN"
                Case "PRINTERSETTINGS"
                    Try
                        Dim f As New frmPrinterSettings(App, Parameters)
                        f.ShowDialog()
                        f.Dispose()
                        f.Dispose()
                        f = Nothing

                    Catch ex As Exception

                    End Try
                    Finalize()
                Case "PRINT_COLOR"
                    Dim f As New frmPrinterSettings(App, Parameters)
                    f.Set_Printer_To_Color()
                    f.Dispose()
                    f = Nothing
                Case "PRINT_BW"
                    Dim f As New frmPrinterSettings(App, Parameters)
                    f.Set_Printer_To_BW()
                    f.Dispose()
                    f = Nothing

                Case Else

                    Finalize()
                    Exit Function
            End Select

        Catch ex As Exception

        End Try
        Finalize()

    End Function


End Class