From 8cf629c94936f4690f353ee2482251b6b74d54ce Mon Sep 17 00:00:00 2001
From: Sophie <sophie.malla@aims-cameroon.org>
Date: Wed, 4 Jan 2023 13:59:55 +0100
Subject: [PATCH] minor modification code

---
 instat/dlgDescribeTwoVarGraph.vb | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/instat/dlgDescribeTwoVarGraph.vb b/instat/dlgDescribeTwoVarGraph.vb
index 846f2c4cf5a..4b7340e7178 100644
--- a/instat/dlgDescribeTwoVarGraph.vb
+++ b/instat/dlgDescribeTwoVarGraph.vb
@@ -1004,19 +1004,11 @@ Public Class dlgDescribeTwoVarGraph
     End Sub
 
     Private Sub HideShowOptions()
-        If rdoPairs.Checked Then
-            cmdOptions.Visible = False
-            cmdPairOptions.Visible = True
-            If Not ucrReceiverColour.IsEmpty Then
-                cmdPairOptions.Enabled = True
-            Else
-                cmdPairOptions.Enabled = False
-            End If
-        Else
-            cmdPairOptions.Visible = False
-            cmdOptions.Visible = True
-        End If
+        cmdOptions.Visible = Not rdoPairs.Checked
+        cmdPairOptions.Visible = rdoPairs.Checked
+        cmdPairOptions.Enabled = cmdPairOptions.Visible AndAlso Not ucrReceiverColour.IsEmpty
     End Sub
+
     Private Sub AddRemoveColourParameter()
         If Not ucrReceiverColour.IsEmpty And rdoPairs.Checked Then
             clsGGpairsFunction.AddParameter("colour", clsRFunctionParameter:=clsGGpairAesFunction, bIncludeArgumentName:=False, iPosition:=2)