Dim Ic As Icon
Ic = New Icon("C:\path-to-icon\youricon.ico")
AxSftDirectory1.MouseIconH = Ic.Handle.ToInt32()
AxSftDirectory1.MousePointer = SftMousePointerConstants.sftCustom