[Visual Basic 6.0]
Sub Newraster()
  'create a new workspace and raster dataset
  Dim iworkspname As IWorkspaceName
  Dim irastwsfact As IWorkspaceFactory
  
  Set irastwsfact = New RasterWorkspaceFactory
  'creates new folder NOTE: can only be created once
  Set pworkspname = irastwsfact.Create("D:\", "RasterData", Nothing, 0)
  'QI to iworkspace
  Dim pworksp  As IWorkspace
  Dim prastws As IRasterWorkspace2
  Dim pname As IName
  Set pname = pworkspname
  
  Set pworksp = pname.Open
  Set prastws = pworksp
  
  'create envelope for dataset extend
  Dim pEnv As IEnvelope
  Set pEnv = New Envelope
  pEnv.PutCoords 0, 0, 1000, 1000
  
  Dim prastds As IRasterDataset
  Set prastds = prastws.CreateRasterDataset("testrast", "GRID", pEnv.LowerLeft, _
    100, 100, 10, 10, 1, PT_SHORT, Nothing, True)
End Sub