set form1.activecontrol = webbrowser1
Private Sub Form_Load()
Me.Show
WebBrowser1.SetFocus
End Sub
CHEvalier писал(а):извените люди что беспокою но вопрос остаёться открытым... неужели никто web не использует???
Private Sub Form_Activate()
WebBrowser1.SetFocus
End Sub
Sub Timer1_Timer()
WebBrowser1.SetFocus
Timer1.Enabled = False
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 8