>>42

txtTheme.Enabled = False
txtTheme.Enabled = True
PopupMenu RightClick

>>43

VBの参考書なんてどーれも一緒

>>44

If no1 = "0" or no1 = "1" Then
MsgBox ("正しいです")
Else: MsgBox ("違います")
End If