Код: Выделить всё
sb.Append("<a href='").Append(cur.ColumnCount).Append(".").Append(row).Append("'><img src='").Append(Main.List_Change).Append("' width='25' height='25' border='0' >")
в Process_Globals
Код: Выделить всё
Dim List_Change As String
Код: Выделить всё
If File.Exists(File.DirInternal, "change.png") = False Then
File.Copy(File.DirAssets, "change.png", File.DirInternal, "change.png")
End If
List_Change = "file://" & File.DirInternal & "/change.png"