Try this code .. you will getting the blend mode Name as String type..
Public Enum EBlendModes
None = 0
psSoftLight = 13
psScreen = 9
psNormalBlend = 2
psMultiply = 5
psColorBurn = 6
psDissolve = 3
psHardMix = 26
psHardLight = 14
psDarken = 4
psDifference = 18
psColorBlend = 22
psPinLight = 17
psOverlay = 12
psVividLight = 15
psLighterColor = 27
psLinearLight = 16
psDarkerColor = 28
psLinearDodge = 11
psLinearBurn = 7
psExclusion = 19
psLuminosity = 23
psSubtract = 29
psPassThrough = 1
psColorDodge = 10
psDivide = 30
psSaturationBlend = 21
psLighten = 8
psHue = 20
End Enum
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim _appref = Activator.CreateInstance(Type.GetTypeFromProgID("Photoshop.Application"))
Dim _blndmod As EBlendModes = CInt(_appref.activedocument.Activelayer.blendmode)
MsgBox(_blndmod.ToString)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Result is : PsNormalBlend....
are u expecting like this.............