“居中”的VB源代码是什么？

Question

form的startupposition属性改成1或2

Answer 1

不是不是啦，事实上是有一个论坛，签名档不支持HTML语言，只好用VB，可我又不会……555~
help

Answer 2

如果是窗体可以这样
Public Sub Center(ByVal frm As Form)
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 2
End Sub

Answer 3

Private Sub Form_Resize(
If Me.WindowState <> vbMinimized Then
  Me.TongData.Move 0, 0, Me.Width - 130, Me.Height / 2
  Me.Tongtixin.Move 0, Me.Height / 2, Me.Width - 130, Me.Height / 2 - 680
End If
End Sub 

Answer 4

呵呵，虾米你可真会省时
这TMD是吗？