Asisten Office


Private sub cmd_click()

Dim intPil as integer

Dim oWord as word.application

Set oWord=New Word.Application

With oWord.Assistant.NewBalloon

.BalloonType=msBalloonTypeButtons

.Heading=”Your Topic You Want”

.Text=”Choose Your Topic”

.Labels(1).Text=”First Topic…”

.Labels(2).Text=”Second Topic…”

.Animation=msoAnimationAppear

.Button=msoButtonSetOkCancel

.Mode=msoModeModal

intPil=.Show

End With

Select Case intPil

Case 1

msgbox(“You Choosen First Topic”)

Case 2

msgbox(“You Choosen Second Topic”)

End Select

oWord.Quit

Set oWord=Nothing

End Sub \

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s