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