price volume colors

fpvt.frm

@@ -4,7 +4,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fpvt
    ClientHeight    =   8445.001
    ClientLeft      =   120
    ClientTop       =   465
-   ClientWidth     =   9285.001
+   ClientWidth     =   8940.001
    OleObjectBlob   =   "fpvt.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
@@ -97,8 +97,9 @@ Private Sub butAdjust_Click()
                 Exit Sub
             End If
         Case Else
-            MsgBox ("not on an adjustable tab")
+            doc = tbAPI.text
-            Exit Sub
+            'MsgBox ("not on an adjustable tab")
+            'Exit Sub
     End Select
     
     Call handler.request_adjust(doc, fail)
@@ -434,10 +435,31 @@ End Sub
 
 Private Sub opPlugPrice_Click()
     calc_val
+    If opPlugPrice.value = True Then
+        opPlugPrice.BackColor = -2147483624
+    Else
+        opPlugPrice.BackColor = -2147483644
+    End If
+    If opPlugVol.value = True Then
+        opPlugVol.BackColor = -2147483624
+    Else
+        opPlugVol.BackColor = -2147483644
+    End If
+        
 End Sub
 
 Private Sub opPlugVol_Click()
     calc_val
+    If opPlugVol.value = True Then
+        opPlugVol.BackColor = -2147483624
+    Else
+        opPlugVol.BackColor = -2147483644
+    End If
+    If opPlugPrice.value = True Then
+        opPlugPrice.BackColor = -2147483624
+    Else
+        opPlugPrice.BackColor = -2147483644
+    End If
 End Sub
 
 Private Sub sbpd_Change()
@@ -737,6 +759,18 @@ Private Sub UserForm_Activate()
     pickSWAP.list = Application.transpose(Worksheets("mdata").Range("F2:F1672"))
     Call x.frmListBoxHeader(Me.lbSWAPH, Me.lbSWAP, "Original", "Sales", "Replacement", "Fit")
     
+    '---------price volume radio button colors----------
+    If opPlugPrice.value = True Then
+        opPlugPrice.BackColor = -2147483624
+    Else
+        opPlugPrice.BackColor = -2147483644
+    End If
+    If opPlugVol.value = True Then
+        opPlugVol.BackColor = -2147483624
+    Else
+        opPlugVol.BackColor = -2147483644
+    End If
+    
     Call handler.month_tosheet(month, basket)
     Application.StatusBar = False
     
@@ -771,7 +805,7 @@ Sub crunch_array()
     
     ReDim mload(UBound(month, 1), 5)
     For i = 0 To UBound(month, 1)
-        mload(i, 0) = Format(month(i, 0), "#,###")
+        mload(i, 0) = month(i, 0)
         mload(i, 1) = Format(month(i, 1), "#,###")
         mload(i, 2) = Format(month(i, 4), "#,###")
         mload(i, 3) = Format(month(i, 5), "#,###")