If 1540 <= hm AndAlso hm < 1550 Then TextBox1.Text = "テスト" Else TextBox1.Clear() End If
If 1540 <= hm AndAlso hm < 1550 Then TextBox1.Text = "テスト" TextBox1.ReadOnly = True ElseIf 1550<= hm AndAlso hm < 1600 Then TextBox1.Text = "" TextBox1.ReadOnly = True Else TextBox1.ReadOnly = False End If