Para 999999 não funcionou infelizmente pois tem o uso e já testado HB_RandomInt()
DataObject As New DataObject
Dim file As String = "C:\TESTE.PDF"
DataObject.SetData(DataFormats.FileDrop, True, file)
Clipboard.SetDataObject(DataObject)