浜田さん、毎度お世話になります。
サンプルをありがとうございました。
> if (nnn And &H80000) > 0 then ; VisualBasicたぶんこんな感じ
> 共有中;
下記ですんなり出来ました。 MNI TNX
If (KSet_str And &H80000) > 0 Then
Kyoyu_flag = 0
Label7.Text = "共有オープンされています"
Label7.ForeColor = Color.Blue
Else
Kyoyu_flag = 0
Label7.Text = "共有オープンされていません"
Label7.ForeColor = Color.Red
End If