給你一個(gè)很簡(jiǎn)單的API 參數(shù)簡(jiǎn)單，用起來(lái)簡(jiǎn)單。。
第一個(gè)：
FindWindow 用來(lái)找到窗口句柄。
第二個(gè)：
MoveWindow 用來(lái)設(shè)置窗體坐標(biāo)及寬高。

-------------------------------------分割線---------------------------------------
exmple：
窗體標(biāo)題：Test

具體實(shí)現(xiàn)
' API調(diào)用聲明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'API調(diào)用聲明
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變?yōu)?00 ，Y變?yōu)?00

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