VBCode formatting

[Arachnid13]

x = 0 'initial value
 
Do
    x = x + 1
    Select Case x
      Case 2
          'what to do when x is 2
       Case 10
          'what to do when x is 10
       Case 500
          'what to do when x is 500 
     End Select
     DoEvents
Loop

[brad jones]

Don't use tags within your code. The (Indent) tag is messing up the color coding. Use spaces is my recommendation.

Brad!

[Jacob Roman]

This is what I get when I copy and paste my code straight from VB. Seems like it's missing tabs or newline characters, cause it's suppose to be perfectly even:

Option Explicit
 
Public Function Calculate_Angle(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Single
    
    Const PI As Single = 3.141592654
    
    Dim DX As Single, DY As Single
    Dim Angle As Single
 
        DX = X2 - X1
        DY = Y2 - Y1
        
        Angle = 0
 
        If DX = 0 Then
        
            If DY = 0 Then
            
                Angle = 0
                
            ElseIf DY > 0 Then
            
                Angle = PI / 2
            
            Else
                
                Angle = PI * 3 / 2
                
            End If
        
        ElseIf DY = 0 Then
 
            If DX > 0 Then
            
                Angle = 0
                
            Else
            
                Angle = PI
            
            End If
        
        Else
        
            If DX < 0 Then
            
                Angle = Atn(DY / DX) + PI
                
            ElseIf DY < 0 Then
            
                Angle = Atn(DY / DX) + (2 * PI)
                
            Else
            
                Angle = Atn(DY / DX)
                
            End If
            
            
        End If
 
        Angle = Angle * 180 / PI
 
        Calculate_Angle = Angle
 
End Function
 
Private Sub Form_Activate()
 
    AutoRedraw = True
    ScaleMode = 3
    BackColor = RGB(0, 0, 0)
    
    Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 50, RGB(0, 255, 0)
    
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Dim Angle As Single
    
    Angle = Calculate_Angle(Me.ScaleWidth / 2, Me.ScaleHeight / 2, X, Y)
    
    Me.Caption = Angle
 
End Sub

[penagate]

If you indent blank lines (like VB/most IDEs do by default) then that sometimes gets carried over onto the next line. You need to remove the unnecessary spaces.

[Jacob Roman]

Apparently they fixed the problem cause it looks even now.