Cfg Maker [Basit Source]

Private Sub el_Click()
Select Case el.ListIndex
Case 0
cfg.Text = cfg.Text & vbCrLf & "cl_righthand 1"
Case 1
cfg.Text = cfg.Text & vbCrLf & "cl_righthand 0"
End Select
End Sub
Private Sub oluştur_Click()
cfg.Text = cfg.Text & vbCrLf & "name " & nametxt.Text & vbCrLf & "sensitivity " & sensitivitytxt.Text
With aboo67
.DialogTitle = ("Kaydet")
.Filter = "Cfg Dosyası (*.cfg)|*.cfg"
.FileName = ("Eda")
.ShowSave
End With
Open aboo67.FileName For Append As #1
Print #1, cfg
Close #1
End Sub
Private Sub recoilpkts_Click()
cfg.Text = cfg.Text & vbCrLf & recoilpkt.Text
End Sub