  m_cSBar.SimpleText = "Drag mouse to see X,Y"
End Sub

Private Sub lblSimple_MouseMove(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   If (Button = vbLeftButton) Then
      m_cSBar.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)
   m_cSBar.SimpleMode = False
End Sub

Private Sub picStatus_Paint()
   m_cSBar.Draw
End Sub

Private Sub picStatus_Resize()
   picStatus_