If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) Then 
  Dim I as Image
  Dim timeStr as String = DateTime.Now.ToString() :   timeStr = timeStr( _
    ":"c,"_"c) 
  Dim path as String = Environment.GetEnvironmentVariable("USERPROFILE")
  path += "\Eigene Dateien\" +  timeStr +  ".bmp"
  I = Clipboard.GetDataObject.GetData(DataFormats.Bitmap) 
  I.Save(path)
End If