HelpVB Menu Flickering

    Private Sub DrawMenu_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrawMenu.Tick
        update_menu()
    End Sub

 Private Sub update_menu()
        Dim TargetProcess As Process() = Process.GetProcessesByName("Crossfire")
        If TargetProcess.Length = 1 Then
        Else
            DrawMenuBorder(10, 10, Pens.Red, MenuWidth, MenuHeight)
            DrawTitle(10, 10, "LucasHeer715 Menu V1.0", Brushes.Red, 25)
            MenuItemSpaces += 40
            DrawString(10, MenuItemSpaces, Item1.Split(";")(0), brushcoloritem1, 15)
            DrawString(320, MenuItemSpaces, Item1.Split(";")(1), brushcoloritem1, 15)
            MenuItemSpaces += 20
            DrawString(10, MenuItemSpaces, Item2.Split(";")(0), brushcoloritem2, 15)
            DrawString(320, MenuItemSpaces, Item2.Split(";")(1), brushcoloritem2, 15)
            MenuItemSpaces += 20
            DrawString(10, MenuItemSpaces, Item3.Split(";")(0), brushcoloritem3, 15)
            DrawString(320, MenuItemSpaces, Item3.Split(";")(1), brushcoloritem3, 15)
            MenuItemSpaces += 20
            DrawString(10, MenuItemSpaces, Item4.Split(";")(0), brushcoloritem4, 15)
            DrawString(320, MenuItemSpaces, Item4.Split(";")(1), brushcoloritem4, 15)
            MenuItemSpaces = 5
        End If
    End Sub

    Private Sub DrawString(ByVal X As Integer, ByVal Y As Integer, ByVal TextI As String, ByVal brush As Brush, ByVal fontsize As Integer)
        Dim Crossfire As Graphics = Graphics.FromHwnd(New IntPtr(FindWindow("CrossFire", "CrossFire")))
        Dim MenuItem As Font
        MenuItem = New System.Drawing.Font("Times", fontsize, FontStyle.Regular)
        Crossfire.DrawString(TextI, MenuItem, brush, X, Y)
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        DoubleBuffered = True
        Crossfire.Dispose()
    End Sub