******************************************Private oOriginalRegion As Region = Nothing' 用于窗体移动Private bFormDragging As Boolean = FalsePrivate oPointClicked As Point '****************************************** Private Sub Form1_MouseDown(ByVal sender A