Busco en google skin de programas? o que jejej perdona mi ignorancia  

Necesito ayuda con el diseño del programa para que se vea mas profesional y eso, este es el diseño que tengo hasta ahora, se ve muy simple creo yo, que dicen ustedes?


Porfa ayudenme en el diseño si pueden.

Gracias de antemano!

este es el codigo que puse y me da un errorsillo:

Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
 
End Sub
 
Private Sub cmdordenar_Click()
Dim i As Long
Dim arreglo() As Long
ReDim arreglo(List1.ListCount - 1)
For i = 0 To List1.ListCount - 1
arreglo(i) = Int(List1.List(i))
Next
For i = 0 To UBound(arreglo)
 
Next
Call BubbleSort(arreglo(), True)
List1.Clear
 
For i = 0 To UBound(arreglo)
List1.AddItem arreglo(i)
Next
 
 
 
End Sub
 
 
 
 
'true ascendente, false descendente
Public Sub BubbleSort(ByRef iaArray() As Long, Optional ByVal tipo As Boolean = True)
 
 Dim n As Integer, i As Integer, j As Integer
 
    n = UBound(iaArray)
 
    For i = (n - 1) To 0 Step -1
 
        For j = 0 To i
 
If tipo = True Then
            If iaArray(j) > iaArray(j + 1) Then
            Swap iaArray(j), iaArray(j + 1)
 
            End If
Else
If iaArray(j) < iaArray(j + 1) Then
            Swap iaArray(j), iaArray(j + 1)
 
            End If
            End If
 
 
        Next j
 
    Next i
 
End Sub
 
 
 
 
 
Private Sub Swap(ByRef xArg1, ByRef xArg2)
 
    Dim xTmp
 
    xTmp = xArg2
 
    xArg2 = xArg1
 
    xArg1 = xTmp
 
End Sub
 

error 424 se requiere un objeto

jajajaja perdona se me olvido recargar la pagina   mira el codigo

Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
 
End Sub
 
Private Sub cmdordenar_Click()
Public Sub BubbleSort(ByRef iaArray() As Long, Optional ByVal tipo As Boolean = True)
 
 Dim n As Integer, i As Integer, j As Integer
 
    n = UBound(iaArray)
 
    For i = (n - 1) To 0 Step -1
 
        For j = 0 To i
 
If tipo = True Then
            If iaArray(j) > iaArray(j + 1) Then
            Swap iaArray(j), iaArray(j + 1)
 
            End If
Else
If iaArray(j) < iaArray(j + 1) Then
            Swap iaArray(j), iaArray(j + 1)
 
            End If
            End If
 
 
        Next j
 
    Next i
 
 
 
 
 
End Sub

me da error dice que  se esperaba endsub T___T
saludos!

Solo quiero que me ordene los numeros añadidos al listbox si le doy al optionbotom ascendente me los ordenara de manera ascendente pero si le doy a descendente me los ordenara de manera descendente

entonces el codigo de arriba no funciona?

T_____T otro programa, en el cual tengo que pedir ayuda perdonen las molestias enserio T_T  el codigo no me funciona  me da error al principio

No me funciona

Que se supone que es numbers si se podria saber?