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