Prog

Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Long, Y As Long)
    If Button = 1 Then Text.SetFocus
End Sub

ka det bruges ?

eller sådan her

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text.SetFocus
End Sub

det skal være selve programmet altså formen!

Kan du ikke loade formen som vbmodal. Gør at du skal unloade den for at slippe af med den -> du kan styre skidtet !!!

MVH

tra-la

Check http://www.eksperten.dk/spm/105988

/Jennemaan

Tilføj et modil til dit projekt med følgende:
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
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2


I formload eventen skriver du så:

Private Sub Form_Load()
Dim retval As Long
retval = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

/Jennemaan