drawing a line under a string or integer?

You might wanna try this:

Private Sub Command1_Click() 

    Dim number As Integer 
    Randomize 
    number = Int(Rnd * 200) 

    Picture1.Cls 
    Picture1.FontSize = 14 
    Picture1.Print "The number is "
    WriteUnderline number

End Sub 

Public Sub WriteUnderline(x As String) 

    Picture1.Font.Underline = True 
    Picture1.Print x
    Picture1.Font.Underline = False

End Function

I think that this will work.