MessageBox.Show(path)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) Then
            Dim I As Image
            Dim timeStr As String = DateTime.Now.ToString() : timeStr = _
              timeStr.Replace(":"c, "_"c)
            Dim path As String = Environment.GetEnvironmentVariable( _
            "USERPROFILE")
            path += "\Eigene Dateien\" + timeStr + ".bmp"
            I = CType(Clipboard.GetDataObject.GetData(DataFormats.Bitmap), _
              Image)
            I.Save(path)
            Microsoft.VisualBasic.Shell("explorer /e, /select, " + path, _
              AppWinStyle.NormalFocus)
        Else
            MsgBox("kein bild in der zwischenablage")
        End If
    End Sub