diff --git a/gpu-vulkan-middle.cabal b/gpu-vulkan-middle.cabal
--- a/gpu-vulkan-middle.cabal
+++ b/gpu-vulkan-middle.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan-middle
-version:        0.1.0.72
+version:        0.1.0.73
 synopsis:       Medium wrapper for Vulkan API
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-middle#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan/ImageView/Middle.hs b/src/Gpu/Vulkan/ImageView/Middle.hs
--- a/src/Gpu/Vulkan/ImageView/Middle.hs
+++ b/src/Gpu/Vulkan/ImageView/Middle.hs
@@ -4,7 +4,7 @@
 
 	-- * CREATE AND DESTROY
 
-	create, recreate, recreate', destroy, I, CreateInfo(..),
+	create, null, recreate, recreate', destroy, I, CreateInfo(..),
 
 	-- ** Image Views Group
 
@@ -12,5 +12,5 @@
 
 	) where
 
-import Prelude hiding (lookup)
+import Prelude hiding (null, lookup)
 import Gpu.Vulkan.ImageView.Middle.Internal
diff --git a/src/Gpu/Vulkan/ImageView/Middle/Internal.hs b/src/Gpu/Vulkan/ImageView/Middle/Internal.hs
--- a/src/Gpu/Vulkan/ImageView/Middle/Internal.hs
+++ b/src/Gpu/Vulkan/ImageView/Middle/Internal.hs
@@ -7,14 +7,14 @@
 {-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
 
 module Gpu.Vulkan.ImageView.Middle.Internal (
-	I, CreateInfo(..), create, recreate, recreate', destroy,
+	I, null, CreateInfo(..), create, recreate, recreate', destroy,
 
 	group, create', destroy', lookup, Group,
 
 	iToCore
 	) where
 
-import Prelude hiding (lookup)
+import Prelude hiding (null, lookup)
 
 import Foreign.Ptr
 import Foreign.Marshal
@@ -39,6 +39,8 @@
 import qualified Gpu.Vulkan.Image.Middle.Internal as Image
 import qualified Gpu.Vulkan.ImageView.Core as C
 
+import Gpu.Vulkan.Base.Middle.Internal
+
 data CreateInfo mn = CreateInfo {
 	createInfoNext :: TMaybe.M mn,
 	createInfoFlags :: CreateFlags,
@@ -72,6 +74,9 @@
 	withPoked ci f
 
 newtype I = I (IORef C.I)
+
+null :: IO I
+null = I <$> newIORef NullHandle
 
 instance Show I where show _ = "Vk.ImageView.I"