"Public Sub " yerinde "Identifier expected" bu hatayı veriyor.
Kod:
Public Sub VERSION(5.0) Object = "#1.1#0"; "ieframe.dll" Object = "#1.1#0"; "TABCTL32.OCX" Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Giriş" ClientHeight = 9075 ClientLeft = 45 ClientTop = 330 ClientWidth = 4680 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 9075 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin TabDlg.SSTab SSTab1 Height = 3255 Left = 0 TabIndex = 1 Top = 5880 Width = 4695 _ExtentX = 8281 _ExtentY = 5741 _Version = 393216 Style = 1 TabHeight = 520 TabCaption(0) = "Oyun Başlama" TabPicture(0) = "Form1.frx":0000 Tab(0).ControlEnabled = -1 'True Tab(0).Control(0) = "Frame1" Tab(0).Control(0).Enabled = 0 'False Tab(0).ControlCount = 1 TabCaption(1) = "Oto Login" TabPicture(1) = "Form1.frx":001C Tab(1).ControlEnabled = 0 'False Tab(1).ControlCount = 0 TabCaption(2) = "Oto Proxy" TabPicture(2) = "Form1.frx":0038 Tab(2).ControlEnabled = 0 'False Tab(2).ControlCount = 0 Begin VB.Frame Frame1 Caption = "Oyun Başlatma" Height = 2775 Left = 120 TabIndex = 2 Top = 360 Width = 4455 Begin VB.CommandButton Command1 Caption = "Başlat" Height = 375 Left = 1560 TabIndex = 5 Top = 960 Width = 2175 End Begin VB.TextBox Text1 Height = 285 Left = 1320 TabIndex = 4 Top = 360 Width = 2055 End Begin VB.Label Label1 Caption = "Oyuna Bağlan :" Height = 255 Left = 120 TabIndex = 3 Top = 360 Width = 1935 End End End Begin SHDocVwCtl.WebBrowser w Height = 5895 Left = 0 TabIndex = 0 Top = 0 Width = 4695 ExtentX = 8281 ExtentY = 10398 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser = 0 RegisterAsDropTarget = 1 AutoArrange = 0 'False NoClientEdge = 0 'False AlignLeft = 0 'False NoWebView = 0 'False HideFileNames = 0 'False SingleClick = 0 'False SingleSelection = 0 'False NoFolders = 0 'False Transparent = 0 'False ViewID = "" Location = "http:///" End End Attribute(VB_Name = "Form1") Attribute(VB_GlobalNameSpace = False) Attribute(VB_Creatable = False) Attribute(VB_PredeclaredId = True) Attribute(VB_Exposed = False) End Sub
__________________