Imports guinet

Public Class Form1

    Dim g As New guixt
    Private Sub Form1_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load

        PictureBox1.AllowDrop = True
    End Sub

    Private Sub PictureBox1_DragEnter_1(sender As Object,
                                        e As DragEventArgs) _
        Handles PictureBox1.DragEnter

        ' SET THE PROPER ACTION FOR FILE DROP....
        ' BY USING THE FILEDROP METHOD TO COPY

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Link
        Else
            e.Effect = DragDropEffects.None
        End If

    End Sub

    Private Sub PictureBox1_DragDrop_1(sender As Object,
                                       e As DragEventArgs) _
        Handles PictureBox1.DragDrop

        Try

            If e.Data.GetDataPresent("FileDrop", True) = True Then
                Dim Werte As String() =
                    CType(e.Data.GetData("FileDrop"), Object)
                ' 
                Dim fileNames As String = ""

                Dim i As Integer = 0
                For Each f In Werte

                    g.SetVariable("dragged_files." _
                     & (i + 1).ToString, Werte(i))

                    i += 1
                Next

                ' Get name of InputScript
                Dim inputScript As String = ""
                inputScript = g.GetVariable("dragdrop_inputscript")

                ' Start InputScript ...
                g.Input("OK:/0,process=" & inputScript)

            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Public Sub embed(ByVal w As Object, imagepath As String)

        Try
            If Not imagepath = "" Then
                PictureBox1.Image = Image.FromFile(imagepath)
            End If
            guixt.EmbedForm(Me, w)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Class