Sub ボタンの色変更()
    
    ボタン.Show
    
End Sub
---------------------------------------------------------
Private Sub CB1_Click()
    
    ボタン.CB2.BackColor = RGB(0, 255, 0)     '青色
    
    If TextBox1.Text = 1 Then
       ボタン.CB1.Visible = False
    End If
     
End Sub
----------------------------------------------------------
Private Sub CB2_Click()
     
    ボタン.CB1.Visible = True
    ボタン.CB1.BackColor = RGB(255, 255, 0)   '黄色
    ボタン.CB1.ForeColor = RGB(0, 0, 0)       '黒
    
End Sub
----------------------------------------------------------
Private Sub CB3_Click()
 
    ボタン.CB1.Visible = True
    ボタン.CB1.BackColor = RGB(255, 0, 0)      ' 赤
    ボタン.CB1.ForeColor = RGB(255, 255, 255)  '白
    ボタン.CB2.BackColor = RGB(255, 255, 0)
    
End Sub
---------------------------------------------------------
Private Sub CB4_Click()
    
    TextBox1.Text = 0
    Unload ボタン

End Sub
--------------------------------------------------------
Private Sub CB5_Click()

    TextBox1.Text = 1

End Sub
--------------------------------------------------------
Private Sub CB6_Click()

    TextBox1.Text = 0

End Sub