除了设borderstyle属性以外
还可以加入一个RESIZE事件也可以解决
Private Sub Form_Resize()
If Me.WindowState = 0 Then
With Me
.Height = 1000
.Width = 2000
End With
End Sub
这样就可以不能除 了最大化最小化以外的任何改变大小操作
1,borderstyle属性改为1
2
combo1.AddItem "R"
combo1.AddItem "G"
combo1.AddItem "B"