I-Cloud程式攻略

'將下列Sub放置到  Me.Resize，當控制項變化時會自動調整位置

  Private Sub WindowToCenter()
        Dim sx As Integer = Screen.PrimaryScreen.Bounds.Width
        Dim sy As Integer = Screen.PrimaryScreen.Bounds.Height
        Me.Left = (sx - Me.Width) / 2
        Me.Top = (sy - Me.Height) / 2
    End Sub