楼主
版主

不是扣掉Top.是扣掉height...下面那个状态条的name假如说是tool,那么代码就这样写

with RichTextbox
.width=me.scalewidth
.height=me.scaleheight - tool.height
end with

打起来啦

Private Sub Form_Resize()
With RichTextBox1
.Left = 240
.Top = 480
.Height = Me.Height - 1800
.Width = Me.Width - 600
End With
End Sub

Private Sub Form_Resize()
If Height > 2280 And Width > 840 Then
With RichTextBox1
.Left = 240
.Top = 480
.Height = Me.Height - 1800
.Width = Me.Width - 600
End With
End If
End Sub