Update dlgAllMSControls.frm

GCuser99 · Jun 18, 2024 · 551f88c · 551f88c
1 parent 8c7bf8b
commit 551f88c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/test/dlgAllMSControls.frm b/test/dlgAllMSControls.frm
@@ -15,7 +15,11 @@ Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 
 Private Sub CheckBox1_Click()
-    TextBox1.Enabled = CheckBox1.Value
+    If CheckBox1.Value Then
+        TextBox1.Enabled = True
+    Else
+        TextBox1.Enabled = False
+    End If
 End Sub
 
 Private Sub ComboBox1_Change()