Visual Basic

harisqued wrote:

"PRINT #1, CHR$(&H1B);"p";CHR$(0);CHR$(100);CHR$(250);". But I don't know how to use this code in VB.

Private Enum Result
   [Error]
   Failure
   Ok
End Enum

          For X As Integer = 0 To 3<br />
                    MyTB(CInt(Rnd() * 3)).Text = WAnswer(X)<br />
<br />
                Next X<br />
<br />
                'now randomize one correct answer<br />
                MyTB(CInt(Rnd() * 3)).Text = PoAns

  Private Sub CheckAnswer()<br />
        If CheckedTB.Text = PoAns Then<br />
            MsgBox("Right", MsgBoxStyle.MsgBoxSetForeground)<br />
        End If<br />
<br />
    End Sub<br />
    Private Sub txtA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtA.Click, txtB.Click, _<br />
     txtC.Click, txtD.Click<br />
        CheckedTB = CType(sender, TextBox)<br />
        Call CheckAnswer()<br />
<br />
    End Sub

  Dim X, Y As Integer, Placed(3) As Boolean<br />
                For X = 0 To 3<br />
                    Do<br />
                        Y = CInt(Int(Rnd() * 4)) ' Randomize 4 wrong answers<br />
                    Loop Until Placed(Y) = False 'Loop until it's not same number<br />
                    Placed(Y) = True<br />
                    MyTB(X).Text = WAnswer(Y) ' Place randomly selected wrong answer in text box <br />
                Next<br />
<br />
                'now randomize one correct answer<br />
                MyTB(CInt(Rnd() * 3)).Text = PoAns

<br />
        Dim strTopic As String = InputBox("Enter a topic")<br />
        Dim sql As String = "SELECT ID, CourseID, Topic FROM tblTopics WHERE ID = 0"<br />
        Dim da As New OleDbDataAdapter(sql, cn)<br />
        Dim ds As New DataSet<br />
        da.Fill(ds)<br />
        Dim cmdbuilder As New OleDbCommandBuilder(da)<br />
        da.InsertCommand = cmdbuilder.GetInsertCommand<br />
        Dim dr As DataRow = ds.Tables(0).NewRow<br />
        dr("CourseID") = Me.lngCourseID(Me.cboCourse.SelectedIndex)<br />
        dr("Topic") = strTopic<br />
        ds.Tables(0).Rows.Add(dr)<br />
        da.Update(ds)<br />
        cn.Close()<br />

   Private Sub Combo7_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo7.SelectedIndexChanged
// do some task here
   End Sub