Desktop Alarm Clock

Public Class AttainForm

    Dim _filePath As String

#Region " Properties "

    Public Property Verb() As String
        Get
            If Me.VerbsComboBox.SelectedItem IsNot Nothing Then
                Return CStr(Me.VerbsComboBox.SelectedItem)
            Else
                Return String.Empty
            End If
        End Get
        Set(ByVal value As String)
            Me.VerbsComboBox.SelectedItem = value
        End Set
    End Property

    Public Property FilePath() As String
        Get
            Return Me._filePath
        End Get
        Set(ByVal value As String)
            Me._filePath = value
            Dim startInfo As New ProcessStartInfo(value)
            Me.VerbsComboBox.Items.Clear()
            Me.VerbsComboBox.Items.Add(String.Empty)
            For Each verb As String In startInfo.Verbs
                Me.VerbsComboBox.Items.Add(verb)
            Next
        End Set
    End Property

#End Region

End Class