Rsv_hlp サービス名 Compare 強引

Rsv_hlp2 で、Listview　において　カラムクリックでソート掛けてるが
並び方が　ちょいと　違うんだよな
て訳で、強引にパッチ掛けた

If _column = 4 Then
x3 = itemx.SubItems(_column).Text.Substring(0, 3)
y3 = itemy.SubItems(_column).Text.Substring(0, 3)
x3r = chk.IndexOf(x3)
y3r = chk.IndexOf(y3)
If x3r > 0 And y3r > 0 Then Return x3r - y3r
Return String.Compare(itemx.SubItems(_column).Text,
itemy.SubItems(_column).Text)
End If