hift As Integer, X As
 Single, Y As Single)
   If (Button = vbLeftButton) Then
      sbrMain.SimpleText = "Position (twips): " &amp; X &amp; "," &amp; Y
   End If
End Sub

Private Sub lblSimple_MouseUp(Button As Integer, Shift As Integer, X As Single,
 Y As Single)
   sbrMain.SimpleMode = False
End Sub

Private Sub mnuTest_Click(Index As Integer)
Dim sI As String
Dim iPos As Long

   Select Case Index
   Case 0
      ' Add
      sI = InputBox$("This inserts a panel with a random icon at a random
       loca