Dim WithEvents t As Timer
    Dim text As String
    Dim pic As Bitmap
    Dim list As ArrayList
    Dim count As Integer  Private Sub Form1_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        t = New Timer
 
        If My.Computer.Clipboard.ContainsText = True Then
            text = My.Computer.Clipboard.GetText
            count = 1
        ElseIf My.Computer.Clipboard.ContainsImage = True Then
 
            pic = My.Computer.Clipboard.GetImage
            count = 2
        ElseIf My.Computer.Clipboard.ContainsFileDropList = True Then
            list = New ArrayList
            list.AddRange(My.Computer.Clipboard.GetFileDropList)
            For Each item As String In list
                ImageListBox2.Items.Add(New _
                  Global.Controls.Development.ImageListBoxItem(item, 3))
            Next
            count = 3
        Else
            count = 0
        End If
        t.Start()
 
 
    End Sub  Private Sub t_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles t.Tick
        If My.Computer.Clipboard.ContainsText = True Then
            If My.Computer.Clipboard.GetText IsNot text Then
 
                text = My.Computer.Clipboard.GetText
                ImageListBox2.Items.Add(New _
                  Global.Controls.Development.ImageListBoxItem(text, 2))
            End If
        ElseIf My.Computer.Clipboard.ContainsImage = True Then
            If My.Computer.Clipboard.GetImage IsNot pic Then
 
                pic = My.Computer.Clipboard.GetImage
                ImageListBox2.Items.Add(New _
                  Global.Controls.Development.ImageListBoxItem(pic.Height & _
                  pic.Width, 1))
            End If
        ElseIf My.Computer.Clipboard.ContainsFileDropList = True Then
            If My.Computer.Clipboard.GetFileDropList IsNot list Then
 
                list.AddRange(My.Computer.Clipboard.GetFileDropList)
                For Each item As String In list
                    ImageListBox2.Items.Add(New _
                      Global.Controls.Development.ImageListBoxItem(item, 3))
                Next
            End If
        End If
 
 
    End Sub

** Meine Seite: http://vbworld.forumprofi.de/admin/index.php **