怎样实现Label1移动到form1的右上位置？

来源：百度知道 编辑：UC知道 时间：2024/06/30 19:32:17
条件：前提是不定义Form1坐标系统。
最好在Form_Resize()或Form_Load()事件中编写代码。
万分感谢！

Private Sub Form_Load()
Label1.BorderStyle = 1 '这样仅仅是为了清晰
End Sub

Private Sub Form_Resize()
Label1.Move Width - Label1.Width, 0 '最好还要减去窗体的边框宽度，但部件也不要紧
End Sub