Ciao Anthony come Stai ! Scusa del Ritardo nel Rispondere a questo Messaggio , ma ho avuto Problemi con la ADSL ; ora però e tutto a posto .
Detto questo Grazie per il tuo intervento , ma visto che ho avuto nel tempo che fù un buon maestro ,di nome (Anthony) , avevo immaginato già da me quello che avevi scitto tu per qui Apportato tali modifiche , solo dopo aver scritto questa mia Richiesta e andata a buon fine anche tutto il Resto .
In più ne approfitto : per salutare il fatitico (Marius) , anche lui e un grande Sai !
Comunque ho poi risolto tutto scrivendo questo Codice :
- Codice: Seleziona tutto
Option Explicit
Dim I, K, Tx, Ty As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long
Public Property Get hWnd() As Long
On Error Resume Next
hWnd = FindWindow("ThunderDFrame", Me.Caption)
End Property
Private Sub CommandButton1_Click()
On Error Resume Next
End
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
SetWindowRgn Me.hWnd, CreateEllipticRgn(350, 350, 35, 35), True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 1 Then 'se si sta trascinando con il pulsante sinistro del mouse...
Me.Left = Me.Left + (X - Tx) '(la distanza del form dal lato sinistro dello
'shermo) è uguale (alla stessa + (la coordinata X attuale
'del mouse - la coordinata X del mouse prima del click)
Me.Top = Me.Top + (Y - Ty) '(la distanza del form dal lato superiore dello
'shermo) è uguale (alla stessa + (la coordinata Y attuale
'del mouse - la coordinata Y del mouse prima del click)
Else
Tx = X 'queste variabili contengono le coordinate del mouse
Ty = Y 'fin quando non si comincia a trascinare (prima del click sul form)
End If
End Sub
Solo che al posto del tuo :
dl& = SetWindowRgn(FindWindow("ThunderDFrame", Me.Caption), hr, True)io ho scritto :
- Codice: Seleziona tutto
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
ma Funziona ugualmente ; Grazie ancora di tutto Sinceri saluti da A.Maurizio