Då får du lov att använda API.
Typ:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
'API -----------------------------
Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
'---------------------------------
Och sen där du vill sätta fokus:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
res& = SetWindowPos(Formnamnet.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) ' Gör överst
'Sen måste vi släppa fokua, annars kan vi inte göra nåt annat =)
res& = SetWindowPos(Formnamnet.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) 'Lämna tillbaks
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.