Private Sub 编号_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.编号.ControlTipText = Format(Me.编号, "0000") & Me.标题 & _ vbCrLf & vbCrLf & Left(Me.内容, 200)End Sub