Sub Click(Source As Button)

    Dim session As New NotesSession 
    osPlatform = session.platform 

    If osPlatform = "Windows/32" Then
        continue=False 
    End If

End Sub