Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Dim Draw3D As Graphics = Graphics.FromHwnd(New IntPtr(FindWindow("CrossFire", "CrossFire")))
Dim newImage As Image = My.Resources.crosshairs
Dim ulCorner As New Point(775, 775)
Draw3D.DrawImage(newImage, ulCorner)

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Green.Show()
Green2.Show()
Else
CheckBox1.Checked = False
Green.Close()
Green2.Close()
End If
End Sub
End Class
Try
Interaction.AppActivate("crossfire") 'example game process name without .exe
Me.TopMost = True
Catch
Me.TopMost = True
End Try
