給你一個很簡單的API 參數簡單，用起來簡單。。
第一個：
FindWindow 用來找到窗口句柄。
第二個：
MoveWindow 用來設置窗體坐標及寬高。

-------------------------------------分割線---------------------------------------
exmple：
窗體標題：Test

具體實現
' API調用聲明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'API調用聲明
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long

Private sub Command_Click()
Dim HW as long
HW=FindWindow(VBNULLSTRING,"Test")
MoveWindow HW,0,0,200,300 ' 將該窗口X變為200 ，Y變為300

vb很多空間不支持透明顯示，甚至很多控件不支持背景圖像。 對于支持背景圖像的還好解決，你可以使用PictureClip控件，把form的背景賦給PictureClip ，然后讀控件的坐標和大小，使用PictureClip 剪切你需要的部分賦給控件的背景。 如果控件不支持背景就麻煩多了。比如TEXT，只好使用很多API函數直接往控件的客戶區寫。這樣還不如不用控件，完全自己寫一個text