' form1 code:
form2.show
me.enabled=false
' form2 code
private sub Form_Unload()
form1.enabled=true
end sub
DVV писал(а):А Можно Msgbox сделать не модальным?
Option Explicit
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Form_Load()
Me.Show
MessageBox 0, "dsf", "fhj", 0
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 6