' zunächst die benötigten API-Deklarationen, um Fenster im Vordergrund zu halten
Private 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
 
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
 
Private Sub Form_Load()
   FormOnTop Me.hWnd, True 'Aufruf -> Fenster im Vordergrund
 
   cboTest.AddItem "Test1"
   cboTest.AddItem "Test1"
   cboTest.AddItem "Test1"
   cboTest.Listindex = 0
End Sub