Does anyone know how to control 3270 Through Excel? I can't find ANYthing
online or on Books24x7 on learning how to do this. The only thing I located
was on Jolly Giant's software page for their QWS3270 application.

Thanks,
Elbio

Option Explicit
Private app As QWS3270AUTOMATION.Application
Private screen As QWS3270AUTOMATION.screen

Private Sub FormExit_Click()
Unload Me
End Sub

Private Sub StartButton_Click()

If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If
Call app.Start("C:\Program Files\QWS3270 Secure\qws3270s.exe",
"Host.Name", "A", 23)


End Sub

Private Sub UserForm_Initialize()

Set app = New QWS3270AUTOMATION.Application
Set screen = New QWS3270AUTOMATION.screen

End Sub

Private Sub ExitButton_Click()
If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If

Call app.Close("A")

End Sub