Option Explicit
Sub OfficeAssistant()
With Assistant
.Visible = True
With .NewBalloon
.Heading = "How can I help you?"
.Labels(1).Text = "I'm tired"
.Labels(2).Text = "I have too much homework"
.Labels(3).Text = "I want to play a game"
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Mode = msoModeModeless
.Callback = "Response"
.Show
End With
End With
End Sub
Sub Response(bln As Balloon, lbtn As Long, lPriv As Long)
bln.Close
Select Case lbtn
Case Is = 1
MsgBox "Well then go to sleep.", vbInformation
Case Is = 2
MsgBox "So, why are you talking to me? Get to work.", vbCritical
Case Is = 3
MsgBox "Go to this site: http://www.vbaexpress.com/forum/arcade.php? ", vbInformation
End Select
End Sub
|