急急如律令!谁能帮我解决,除了这20分,外加50分!!

Question

Private Sub Timer1_Timer()
    Dim x As Long
    Dim y As Long
    Dim W As Long
    Dim H As Long
    W = Me.Width / Screen.TwipsPerPixelX
    H = Me.Height / Screen.TwipsPerPixelY
    x = (Screen.Width / Screen.TwipsPerPixelX - W) / 2
    y = (Screen.Height / Screen.TwipsPerPixelY - H) / 2
    SetWindowPos Me.hwnd, HWND_TOP, x, y, W, H, SWP_NOMOVE And SWP_NOSIZEEnd Sub
应该可以吧

Answer 1

试试这个：
Private Sub Timer1_Timer()    SetWindowPos Me.hwnd, HWND_TOPMOST , 0, 0, 0, 0, SWP_NOMOVE And SWP_NOSIZE    SetWindowPos Me.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE And SWP_NOSIZEEnd Sub

Answer 2

iwin,您慢了一步
我只能给你20分了
那位把源程序email给我的朋友请在
http://www.csdn.net/expert/TopicView.asp?id=7919 里留个言
我好给你分，谢谢