Private Sub Button1_Click(省略) Dim Sample As New Button() Sample.Text = "YES" Sample.Location = New Point(xxx, xxx) ←Button1をクリックするごとに位置が変わるようにしています Call Button_Text_Change(Sample) End Sub
Private Sub Button_Text_Change(ByVal sample As Button) Me.Controls.Add(Sample) ここに、一定時間後にボタンのラベルを「NO」などに変えるコードを入れたいのです End Sub