[Developer]

Office Assistant

PHP Code:

private sub command1_click()
dim intChoose as integer
dim oWord as word.Application
set oWord = New Word.Application
with oWord.Assistant.NewBalloon
.BalloonType=msoBalloonTypeButtons
.Heading="This Topic do you want.."
.text="Please .... '

.labels(1).text="Topic 1...."
.labels(2).text="Topic 2...."
.animation=msoAnimationAppear
.button=msoButtonSetOKCancel
.mode=msoModeModal
end with

select case intChoose
case 1
msgbox ("You press topic 1")

case 2
msgbix ("You press topic 2")

end select

oWord.quit
set.oWord=nothing

end sub