主题：甜甜版主，MouseEnterCell的事件如何设置宽度？

你可以适当加入回车符号，如

Dim str As String = "1111111111111111111111111111111111111111"
Dim n As Integer = 12
Dim i As Integer = 0
Dim nstr As String = ""
For Each s As String In str
    i += 1
    If i Mod n = 0 Then
        nstr &= s & vbcrlf
    Else
        nstr &= s
    End If
Next
msgbox(nstr)