Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Reset() End Sub
''' <summary> ''' フォームをを最初の状態に戻します。 ''' </summary> ''' <remarks></remarks> Private Sub Reset() Me.Size = New Size(450, 150) Panel1.Visible = True Label5.Visible = False Label6.Text = "" Timer1.Enabled = False Timer2.Enabled = False End Sub