VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} JDialog 
   Caption         =   "J DIalog"
   ClientHeight    =   3585
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4935
   OleObjectBlob   =   "JDialog.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "JDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public cn As Integer

Private Sub Cancel_Click()
Unload JDialog
End Sub

Private Sub Run_Click()
txt$ = JDialog.JInput.Text
DDEPoke cn, "myitem", txt$
res$ = DDERequest(cn, "myitem")
JDialog.JOutput.Text = res$
End Sub

Private Sub UserForm_Initialize()
cn = DDEInitiate("jserver", "mytopic")
End Sub

Private Sub UserForm_Terminate()
DDETerminate (cn)
End Sub
