Assuming you have a
Combobox called
Combobox1 in your
Form adding something like this to the
SelectedIndexChanged event for that
Combobox might work for you;
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex = 4 Then
Dim today As DateTime = DateTime.Today
Dim dueDate As DateTime = today.AddDays(20)
MessageBox.Show(String.Format("Please reply before {0}", dueDate.ToString("dd MMM yyyy")))
End If
End Sub
Hope this helps,
Fredrik
Submit an article or tip