Public Sub test() Dim endTime As DateTime = DateTime.Now.AddMinutes(1) While endTime < DateTime.Now MessageBox.Show("asdsad") End While End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)