Visual Basic - COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES USANDO HSCRLLBAR Y BSCOLLBAR

un modo sencillo:
Inserta un hscrollbar ,un vscrollbar, y dos textbox
ponle 12 en max y 1 en min al hscrollbar
ponle 12 en max y 1 en min al vscrollbar

e inserta este codigo en declaraciones

Private Sub HScroll1_Scroll()
Text1 = HScroll1
If Text1 = 1 Then Text2 = "Enero"
If Text1 = 2 Then Text2 = "Febrero"
If Text1 = 3 Then Text2 = "Marzo"
If Text1 = 4 Then Text2 = "Abril"
If Text1 = 5 Then Text2 = "Mayo"
If Text1 = 6 Then Text2 = "Junio"
If Text1 = 7 Then Text2 = "Julio"
If Text1 = 8 Then Text2 = "Agosto"
If Text1 = 9 Then Text2 = "septiembre"
If Text1 = 10 Then Text2 = "octubre"
If Text1 = 11 Then Text2 = "noviembre"
If Text1 = 12 Then Text2 = "diciembre"
End Sub

Private Sub VScroll1_Scroll()
Text1 = VScroll1
If Text1 = 1 Then Text2 = "Enero"
If Text1 = 2 Then Text2 = "Febrero"
If Text1 = 3 Then Text2 = "Marzo"
If Text1 = 4 Then Text2 = "Abril"
If Text1 = 5 Then Text2 = "Mayo"
If Text1 = 6 Then Text2 = "Junio"
If Text1 = 7 Then Text2 = "Julio"
If Text1 = 8 Then Text2 = "Agosto"
If Text1 = 9 Then Text2 = "septiembre"
If Text1 = 10 Then Text2 = "octubre"
If Text1 = 11 Then Text2 = "noviembre"
If Text1 = 12 Then Text2 = "diciembre"
End Sub

solo arrastra cualquiera de las barras

grasias por tu ayuda (y) me salvaste grasias (y)

No estoy seguro pero puedes intentar con la funcion monthname (al menos en vb.net existe)

TextBox1.Text = MonthName(HScrollBar1.Value)