>>799
具体的にどういうことでしょうか？

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

Dim tsk As New Tasks.Task(AddressOf Disable)
tsk.Start()

Waiting(3000)

Enable()

End Sub

Private Sub Waiting(ByVal ms As Integer)
Thread.Sleep(ms)
End Sub


Private Sub Disable()
Me.IsEnabled = False
End Sub

Private Sub Enable()
Me.IsEnabled = True
End Sub

どう修正したらいいでしょうか？