Public Sub CheckAchv()
            Dim Ach As List(Of String) = API.ExecuteLua(My.Resources._0001)
            With fm
                '#### Fill 1
                .ChkB1.Text = Ach.Item(1)
                .TT1.SetToolTip(.ChkB1, Ach.Item(7))
                If Ach(3) = True Then
                    .ChkB1.Enabled = False
                End If
            End With
        End Sub

#Region "Defines"
        Public fm As New fMain
        '  Public Property CharF As String = API.Me.Faction.ToString
        Private CharN As String = API.Me.Class.ToString
        Public Property CharL As String = API.Me.Level.ToString
#End Region
 
        Public Overrides ReadOnly Property SettingsForm() As Form
            Get
                Return New fMain()
                fm.ShowDialog()
            End Get
        End Property
 
        Public Overrides Sub Start()
 
        End Sub
 
        Public Overrides Sub [Stop]()
 
        End Sub
 
        Public Overrides Sub Run()
            CheckAchv()
        End Sub
 
        Private Sub CheckAchV(chk As CheckBox, luaCode As String)
            Dim Ach As List(Of String) = API.ExecuteLua(luaCode)
 
            chk.Text = Ach.Item(1)
            fm.TT1.SetToolTip(chk, Ach.Item(7))
            If Ach(3) = True Then
                chk.Enabled = False
            End If
        End Sub
 
        Public Sub CheckAchv()
            For i As Integer = 1 To 9
                Dim luaCode As String = My.Resources.ResourceManager.GetString(String.Format("_{0:0000}", i))
                Dim chk = CType(fm.Controls.Find("ChkB" & i, True), CheckBox)
            Next
        End Sub
    End Class
End Namespace