growling

' 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