• Home
 · 
• Windows System Services
 · 
• Office Assistant

Office Assistant

Office Assistant

Rate Office Assistant

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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