'これは NG (記号の丸) 'Public Sub ○() 'End Sub 'これは OK (漢数字のゼロ) Public Sub 〇() End Sub 'こんなメソッド名にもできます Public Sub ゚あ゙か゚ːゝゞヽ⁀ヾ〱‿〲〳〴〵() ' '下記は、掲示板だと見た目が崩れて見えるかも知れません。 'この変数名は、不可視文字を含んだ 7 文字で構成されています。 'ae という 2 文字でも無ければ、abcde という 5 文字でもありません Dim abcde As String = "test" 'MsgBox(ae) 'これは NG (未定義変数) 'MsgBox(abcde) 'これは NG (未定義変数) MsgBox(abcde) 'これは OK End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'それぞれの文字の Unicode カテゴリを調べてみる Dim p As Func(Of Char, String) = Function(c) $"{c}{vbTab}{Char.GetUnicodeCategory(c)}" Dim s As String = "■▲〇○◎…アAアAΠΨあ゙か゚あ゛か゜" ListBox1.DataSource = s.Select(p).ToArray() End Sub