меня уже воротит от этого
Const fona_okno_teksta_1 = &H80000005
Const bukva_okno_teksta_1 = &H80000008
Const fona_okno_teksta_2 = &H80000008
Const bukva_okno_teksta_2 = &H80000005
Dim ZakrõtLiFormu As Boolean
Private Sub KnopkaZakroi_Click()
ZakrõtLiFormu = True
End Sub
Private Sub OknoTeksta_Change()
FormaTšasov.Caption = OknoTeksta
End Sub
Private Sub KnopkaPrikaza_Click()
dlina = Len(OknoTeksta.Value)
If dlina > 0 Then OknoTeksta.Value = Left(OknoTeksta.Value, dlina - 1)
End Sub
Private Sub UserForm_Activate()
ZakrõtLiFormu = False
a = Time
Do
b = Time
If b <> a Then
a = b
JarlõkVremja.Caption = "Vremja: " & b
JarlõkVremja.Font.Underline = Not JarlõkVremja.Font.Underline
End Sub
Const fona_okno_teksta_1 = &H80000005
Const bukva_okno_teksta_1 = &H80000008
Const fona_okno_teksta_2 = &H80000008
Const bukva_okno_teksta_2 = &H80000005
Dim ZakrõtLiFormu As Boolean
Private Sub KnopkaZakroi_Click()
ZakrõtLiFormu = True
End Sub
Private Sub OknoTeksta_Change()
FormaTšasov.Caption = OknoTeksta
End Sub
Private Sub KnopkaPrikaza_Click()
dlina = Len(OknoTeksta.Value)
If dlina > 0 Then OknoTeksta.Value = Left(OknoTeksta.Value, dlina - 1)
End Sub
Private Sub UserForm_Activate()
ZakrõtLiFormu = False
a = Time
Do
b = Time
If b <> a Then
a = b
JarlõkVremja.Caption = "Vremja: " & b
JarlõkVremja.Font.Underline = Not JarlõkVremja.Font.Underline
End Sub