New Post: Rotate

    Mainform.Openimage.ShowDialog()
    inpimage = Image.FromFile(Mainform.Openimage.FileName)
    Dim baseraster As DotSpatial.Controls.IMapRasterLayer = Mainform.Map1.Layers.First
    Dim rasterOptions() As String = New String() {}
    Dim newRaster As IRaster = Raster.CreateRaster("NewRaster.bgd", Nothing, inpimage.Height, inpimage.Width, 1, baseraster.DataType, rasterOptions)
    'newRaster.Bounds = inpimage.Bounds.Copy()
    'newRaster.NoDataValue = baseraster.NoDataValue
    newRaster.Projection = Mainform.Map1.Projection
    Dim bitimage As New Bitmap(inpimage)
    Try
        For i As Integer = 0 To bitimage.Width - 1
            For j As Integer = 0 To bitimage.Height - 1
                newRaster.Value(i, j) = bitimage.GetPixel(i, j).R
            Next
        Next
        Dim ang As Single = 90
        newRaster.Rotate(ang)
        Mainform.Map1.Layers.Add(newRaster)
    Catch ex As Exception

    End Try