ghostriderofthenite Ultimate Bot project

maybe something like this with some changes i’m not sure your the expert im not even a amature hahahah

‘ Launch WMP
If Nz(Me.txtPath, “”) = “” Then
MsgBox “Please specify a file to play.”
Me.txtPath = mcstrSamp
Me.txtPath.SetFocus
Else
LaunchWMP (Me.txtPath)
End If
End Sub

hmmmmmmmmm so if i add all music links into a text file i maybeale to refrence it and open in vb6 media player hmmmmmmmmmm

i’m trying find way to make user selected font size in the trivia i figured out color from your code but not select font size

Private Sub Command13_Click()
RichTextBox2.SelFontSize = 12
End Sub

Private Sub Command4_Click()
Form5.Show
End Sub

Private Sub Command6_Click()
On Error GoTo Error_Event:
CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color
Error_Event:
Exit Sub
End Sub

i figured it out lol
Private Sub Command12_Click()
On Error GoTo Error_Event:
CommonDialog1.ShowFont
RichTextBox1.SelFontSize = CommonDialog1.FontSize
Error_Event:
Exit Sub
End Sub

Shell = WindowsMediaPlayer1(“https://www.youtube.com/v/B9FzVhw8_bY&list”) doesnt work or not adding correctly hahahahah I really need Master Coder like you Help

hmmmmmmmmmm or this

Private Sub Command7_Click()
Dim ourDatabase As Database
Dim ourRecordset As Recordset
Dim ourDatabase As Object
Set ourDatabase = Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\GrimReaper\Desktop\NewBot Project files\Complete 80 Languages New MDB files 22 may 14\” & Form4.Language & “.mdb”
Set ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)

Do Until ourRecordset.EOF
MsgBox ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)
ourRecordset.MoveNext
Loop

End Sub

but stil not working still trying

hmmmmmmmmmmm maybe add combo1 box top trivia to join room?