' Growl for windows test script(VBA)
Sub growling()
    Dim growler As Vortex_Growl_Framework.Growl

    Set growler = New Growl
    growler.ApplicationName = "Test VBA Script"

    Dim notify As New Vortex_Growl_Framework.NotificationType
    notify.Enabled = True
    notify.Name = "testNotify"

    Dim notifies(0) As Vortex_Growl_Framework.NotificationType
    Set notifies(0) = notify

    growler.Register notifies

    growler.notify _
        notify, _
        "Test", _
        "This is test. Can you see me?", _
        Priority_Normal, _
        False
End Sub