Hallo ich hab wieder n' problem: also meinen stub:
hier is der code:
Da kommt folgender fehler. Ich hoffe ihr könnt mir helfen....ICH finde dort keinen fehler :OCode:Private Sub Form_Load() Dim BinStr() As String Open App.Path + "\" & App.EXEName & ".exe" For Binary As #1 BinStr = Space(LOF(1)) Get #1, , BinStr Close #1 Text1.Text = Split(BinStr, "(Dil)")(1) Text2.Text = Split(BinStr, "(Dil)")(2) Text3.Text = Split(BinStr, "(Dil)")(3) End Sub