[VB6] Modificare il BorderStyle della MsgBox di sistema

[giustav]

Ciao a tutti,
ho un piccolo problema in VB6.
Ho cambiato il BorderStyle a tutti i form del mio progetto in 5-Sizable ToolWindow.

Nel codice però, ad esempio:

Private Sub btnElimina_Click()
On Error GoTo GestoreErrori
Dim Risposta As Integer
'Chiede conferma prima di procedere con l'eliminazione
Risposta = MsgBox("Eliminare i dati correnti?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbYes Then
'Elimina i dati
'To prevent the bug, uncomment the next line dal Supporto Tecnico Microsoft
Data.Recordset.Edit
Data.Recordset.Delete
'Si sposta nel record precedente
Data.Recordset.MovePrevious
End If
Exit Sub

GestoreErrori:
'Messaggio di errore
If Err.Number = 3200 Then
MsgBox "Operazione non consentita! Riprovare"
End If
End Sub

esce, in questo caso, un msgbox, che però mantiene per default un altro BorderStyle.

E' possibile modificarlo in 5-Sizable ToolWindow come gli altri form?

Grazie,
Giuseppe

[MItaly]

No. La finestra dell'MsgBox è così e non si può cambiare; l'unica possibilità che hai è di creare una "tua" MsgBox con un form (o di avviare in un thread separato una funzione che con delle API modifichi gli stili della MsgBox appena aperta, ma mi pare che il gioco non valga la candela).

[giustav]

ti ringrazio per la risposta...

[MItaly]

Non c'è di che; ciao!