Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "表示しない" End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
If Me.ShowInTaskbar Then 'タスクバーへの表示をしない Me.ShowInTaskbar = False Button1.Text = "表示する" Else 'タスクバーへの表示をする Me.ShowInTaskbar = True Button1.Text = "表示しない" End If