十万火急！！无标题窗体的缩放问题

Question

补充一下，刚刚看过龙卷风v2.0的代码
http://topic.csdn.net/t/20040102/21/2628060.html可以实现问题1，但是窗体的右侧和下侧多了凹凸感觉的东西
我想问，能否实现问题1的效果而又不影响Border=None外观？

Answer 1

1、 右下角放一个 CommandButtom/Label , etc.2、设置窗口的 left/top/width/height(去掉任务栏的高度)
  

Answer 2

引用一下别人的成果，呵呵
'加一个标签控件，其他的也可以   
  Option   Explicit   
    
  Private   Sub   Form_Load()   
          Label1.BackColor   =   vbBlack   
          Label1.Height   =   200   
          Label1.Width   =   200   
          Label1.Left   =   Me.Width   -   Label1.Width   
          Label1.Top   =   Me.Height   -   Label1.Height   
  End   Sub   
    
  Private   Sub   Form_Resize()   
          Label1.Left   =   Me.Width   -   Label1.Width   
          Label1.Top   =   Me.Height   -   Label1.Height   
    
  End   Sub   
    
  Private   Sub   Label1_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)   
          If   Button   <>   0   Then   
                  If   Me.Width   +   X   >   500   Then   Me.Width   =   Me.Width   +   X   
                  If   Me.Height   +   Y   >   500   Then   Me.Height   =   Me.Height   +   Y   
          End   If   
  End   Sub