1: Public Sub DisableControl() 2: ' FRAME_BILL上のコントロールを無効にする 3: LABEL_ID.Caption = "---" 4: LABEL_CUSTOMERNAME.Caption = "---" 5: LABEL_DATE.Caption = "---" 6: LABEL_MADEDATE.Caption = "---" 7: LABEL_MADEUSER.Caption = "---" 8: LABEL_TOTAL.Caption = "---" 9: TXT_MEMO.Text = "---" 10: FRAME_NAVI.Enabled = False 11: FRAME_BILL.Enabled = False 12: End Sub