by Peter Elisa Souhoka (21 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 22nd May 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Office Assistant
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