Dim DYXL_L As Double
Dim HDXL_L As Double
Dim DYXL_R As Double
Dim HDXL_R As Double


Private Sub bcd_Click()
If bcd.Caption = "远程设定" Then
   bcdkg = True
   bcd.Caption = "本地设定"
   bcd.BackColor = vbGreen
Else
   bcdkg = False
   bcd.Caption = "远程设定"
   bcd.BackColor = &H8000000F
End If

End Sub

Private Sub Cmd_bshjph_Click()
If CMD_L_KSCL.Caption = "停止测量(&M)" Or CMD_R_KSCL.Caption = "停止测量(&M)" Then Exit Sub
    Load bshjph
    bshjph.Show
    MAIN.Enabled = False
End Sub

Private Sub CMD_L_HJBC_Click()
     Dim str
  If MAIN.CMD_L_KSCL.Caption = "开始测量(&M)" Then
  str = MsgBox("对不起！请在测量状态补偿！", 48)
 
Else:   xzkg_l = True
    Load HJBC
    HJBC.Show
    HJBC.Caption = "左合金补偿输入"
    MAIN.Enabled = False
End If
End Sub

Private Sub CMD_L_HJPH_Click()
If CMD_L_KSCL.Caption = "停止测量(&M)" Or CMD_R_KSCL.Caption = "停止测量(&M)" Then Exit Sub
    Load lhjphxz
    lhjphxz.Show
    MAIN.Enabled = False
End Sub

Private Sub CMD_L_JZ_Click()

End Sub