手順
① 開発タブの挿入でActive Controlからラベルを選択する
② 右クリックでプロパティを選択する
➂ BorderStyleで1-fmborderstylesingleを選択する
④ Captionでラベル名を削除する。そのあと右上の閉じるボタンをクリック
⑤ 右クリックでコードを表示させる
⑥ 下記のコードをぶち込む
⑦ 色等は調整
終わり
Private Sub Label1_Click() If Label1.BackColor = vbWhite Then Label1.BackColor = vbBlack Else: Label1.BackColor = vbBlack Label1.BackColor = vbWhite End If End Sub ||<