ListBox1.Items.Clear() For Each fmt As String In Clipboard.GetDataObject().GetFormats() ListBox1.Items.Add(fmt) Next