04/12/10 16:47:16
>>37
Dim temp As String = "abcdefghijklmn"
Dim j As Long = Len(temp)
Dim a, b, c As String
a = Mid(temp, 1, 1) 'return a
b = Mid(temp, 1, j) 'retun abcdefghijklmn
c = Mid(temp, 3, 1)'return c
色はデザイン上から変更していいんじゃね？
label1.ForeColor = Color.Red
リッチテキストボックスならSelectionColor